将值复制到第一行excel VBA

Question

我的VBA功能有问题。

复制作品正确，但我想把诗复制到第一个空单元格中，而不是由我选择的单元格。在这一刻，我有这样的事情：

Sub kopiowanie_styczen_luty()
Dim a As Integer
Dim i As Integer
Dim test As Long

    If Range("AI6").Value < 30 Then
        test = Sheets("Styczeń").Range("AI6").Value
        Sheets("Styczeń").Range("B6").Copy Destination:=Sheets("Luty").Range("B6")
        Sheets("Luty").Range("AJ6") = test
        Sheets("Styczeń").Range("B6:AI6").Interior.ColorIndex = 0
    End If
    If Range("AI6").Value >= 30 Then
        Sheets("Styczeń").Range("B6:AI6").Interior.ColorIndex = 22
    End If
EndSub

我想把Sheets("Styczeń").Range("B6").Copy复制到Sheets("Luty")上的第一个空白B行，我怎么能做到这一点？

还有另一个问题，你是否可以在一个循环中这样做，以避免重复循环，如果最多100个这样的行？

Answer 1

这将将数据放入表格"Luty“B列中的下一个空白单元格中。

Sub kopiowanie_styczen_luty()
Dim a As Integer
Dim i As Integer
Dim test As Long
Dim lastRow as long
Dim cellData as variant

    If Range("AI6").Value < 30 Then
        test = Sheets("Styczeń").Range("AI6").Value
        cellData = Sheets("Styczeń").Range("B6").value
        with worksheets("Luty")
            lastRow = .Range("B" & .rows.count).end(xlup).row + 1
            .range("B" & cstr(lastRow)).value = cellData
        end with
        Sheets("Luty").Range("AJ6") = test
        Sheets("Styczeń").Range("B6:AI6").Interior.ColorIndex = 0
    End If
    If Range("AI6").Value >= 30 Then
        Sheets("Styczeń").Range("B6:AI6").Interior.ColorIndex = 22
    End If
End Sub

关于你的第二个问题，我不知道你到底想要什么。