Excel VBA新手技术问询：如何跳过表头为每行数值加3

Hey there! As someone who’s been where you are with VBA, I totally get how confusing it can be to wrap your head around skipping headers and manipulating cells at first. Let’s walk through a simple, reliable solution for your problem.

Here's the Step-by-Step Solution: #

First, open your Excel file, press Alt + F11 to launch the VBA Editor. Insert a new module (right-click your workbook in the Project Explorer > Insert > Module), then paste this code:

Sub AddThreeToData()
    Dim targetSheet As Worksheet
    Dim dataArea As Range
    Dim individualCell As Range
    Dim lastDataRow As Long
    
    ' Replace "Sheet1" with your actual worksheet name
    Set targetSheet = ThisWorkbook.Worksheets("Sheet1")
    
    ' Find the last row with data in column A (adjust column if needed)
    lastDataRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row
    
    ' Define the range: starts at row 2 (skipping header) and covers columns A to C
    Set dataArea = targetSheet.Range("A2:C" & lastDataRow)
    
    ' Loop through each cell in the data range
    For Each individualCell In dataArea
        ' Only modify numeric cells to avoid errors
        If IsNumeric(individualCell.Value) Then
            individualCell.Value = individualCell.Value + 3
        End If
    Next individualCell
    
    ' Pop up a message when done
    MsgBox "All done! Every number got +3 added.", vbExclamation
End Sub

Let's Break Down What This Code Does: #

• Set targetSheet = ...: This tells VBA which worksheet to work on—make sure you change "Sheet1" to match your actual sheet name (like "Data" or whatever you named it).
• lastDataRow = ...: This finds the very last row in column A that has data, so we don’t accidentally loop through empty rows at the bottom of your sheet.
• Set dataArea = ...: This defines exactly which cells we’re modifying: starting at row 2 (skipping your t/t1/t2 header) and covering columns A to C (since your data lives there).
• The For Each Loop: We go through every cell in our defined range. We check if the cell has a number first (so we don’t mess up any text if you add it later), then add 3 to its value.
• The MsgBox: Just a friendly heads-up that the job is finished.

If You Prefer a Simpler (But Slightly Less Precise) Version: #

If your sheet doesn’t have random empty rows, you can use UsedRange to let VBA automatically find all cells with data (then skip the header row):

Sub AddThreeQuick()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' Skip header row by offsetting the used range down 1 row
    For Each cell In ws.UsedRange.Offset(1)
        If IsNumeric(cell.Value) Then cell.Value = cell.Value + 3
    Next cell
    
    MsgBox "Task completed!", vbInformation
End Sub

How to Run the Macro: #

1. After pasting the code, go back to Excel.
2. Press Alt + F8 to open the Macro dialog.
3. Select the macro name (AddThreeToData or AddThreeQuick) and click "Run".

That’s it! Your data should now look like this:

t t1 t2
4 7 8
5 6 9
6 8 11

内容的提问来源于stack exchange，提问作者pyboy1995