將數據從一張紙復制到另一張紙的下一個可用行

Question

我以前從未使用過宏，但是沒有人能告訴我以下宏中缺少什么，因此工作表1中的數據將復制到工作表2中的下一個可用行？ 我已經嘗試過“ LastRow”，“ NextRow”命令，但是我做對了。 任何幫助都會很棒。

Sheets("Sheet1").Range("B2").Select
Selection.Copy
iRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(x1up).Row + 1
Sheets("Sheet2").Range ("B" & iRow)
ActiveSheet.Paste

Answer 1

嘗試這些。 它是xlup而不是x1up ，並且您沒有粘貼到目標單元格（並且“ Selects是不必要的）。

iRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlup).Row + 1
Sheets("Sheet1").Range("B2").Copy Sheets("Sheet2").Range ("B" & iRow)

要么

iRow = Worksheets("Sheet2").Cells(Rows.Count, 1).End(xlup).Row + 1
Sheets("Sheet2").Range ("B" & iRow).value=Sheets("Sheet1").Range("B2").value

Answer 2

關於這一點，我有下面的代碼。 但是，我的問題是我有多個版本的宏在運行並將信息拉到同一張紙上。 我需要能夠讓宏找到下一行，並且不覆蓋頁面上已經存在的內容。

子Product_Value_In_Specific_Row（）Dim c作為范圍Dim J作為整數Dim源作為工作表Dim目標作為工作表

' Change worksheet designations as needed
Set Source = ActiveWorkbook.Worksheets("mongodb")
Set Target = ActiveWorkbook.Worksheets("Inputs")

J = 2     ' Start copying to row 1 in target sheet
For Each c In Source.Range("A2:A100")   ' Do 1000 rows
    If c = "Product" then
       Source.Rows(c.Row).Copy Target.Rows(J)
       J = J + 1
    End If
Next c

結束子

我一直在通過將“ J = 2”行向下更改幾行來解決此問題，但是我的其他工作表具有不同數量的行，並且希望它們僅復制並粘貼到輸入工作表中而不會彼此覆蓋。