如何在Excel工作表中使用宏生成单元格？

Question

    Dim i, last As Integer
    last = Cells(Rows.Count, 1).End(xlUp).Row

    For i = 1 To last        
        If Cells(i, 1) <> "" Then

        Range("A1:C").Select
        Selection.Copy
        Sheets("Sheet2").Select
        Application.Run "updatecc"
        Range("A1:c").Select
        Selection.Insert Shift:=xlDown
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("Sheet1").Select
        Application.Run "updatecc"
        End If
    Next i

End Sub

这里需要帮助，我想根据sheet1到sheet2的单元格中的数据添加单元格。 它只复制第一个a1：c1值。 我需要从sheet1复制并将其粘贴到sheet2中并生成单元格。

Answer 1

将Range("A1:C").Select替换为Range(Cells(i,1),Cells(i,3)) 这将选择您正在检查的行的A到C列。