使用VBA将数据从表1复制到表2

Question

我有一个Excel电子表格。这里有两张纸。

• Sheet 1中：

  • Company
  • Department
  • Addressline1
  • Addressline2

• Sheet 2中：

  • Account
  • Department
  • Address

我需要：

• 检查Company列中的最后一个非空白行。
• 将Company数据值复制到Sheet2.Account，Sheet1.Department到Sheet2.Department。
• 连接Sheet1.Adddressline1和Sheet2.Addressline2。
• 使用VBA宏单击按钮时复制到Sheet2.Address。

代码：

Sub Button1_click()
 Worksheets("Sheet1").Range("A2").Copy _
    Destination:=Worksheets("Sheet2").Range("F2" & Rows.Count).End(xlUp).Offset(1)
 Worksheets("Sheet1").Range("B2").Copy _
    Destination:=Worksheets("Sheet2").Range("C2" & Rows.Count).End(xlUp).Offset(1)
 Worksheets("Sheet1").Range("F2").Copy _
    Destination:=Worksheets("Sheet2").Range("B2" & Rows.Count).End(xlUp).Offset(1)
  Worksheets("Sheet1").Range("H2").Copy _
    Destination:=Worksheets("Sheet2").Range("K2" & Rows.Count).End(xlUp).Offset(1)
 Worksheets("Sheet1").Range("I2").Copy _
    Destination:=Worksheets("Sheet2").Range("K2:K200" & Rows.Count).End(xlUp).Offset(1)
  Worksheets("Sheet1").Range("L2").Copy _
    Destination:=Worksheets("Sheet2").Range("M2" & Rows.Count).End(xlUp).Offset(1)
Worksheets("Sheet1").Range("AO2").Copy _
    Destination:=Worksheets("Sheet2").Range("I2" & Rows.Count).End(xlUp).Offset(1)
 Worksheets("Sheet1").Range("BF2").Copy _
    Destination:=Worksheets("Sheet2").Range("J2" & Rows.Count).End(xlUp).Offset(1)
End Sub

Answer 1

此代码将检查空白并将数据从Sheet1复制到Sheet2：

LastEmpty = Range("A" & Rows.Count).End(xlUp).Row
Sheets("Sheet1").Range("A1:B"+CStr(LastEmpty)).Copy Destination:=Sheets("Sheet2").Range("A1")

对于concat看： Excel Concatenate Rows 并按照这些提示。

将来请使用搜索引擎解决您的问题，不要复制帖子。