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

【问题标题】：Copy data from sheet 1 to sheet 2 using VBA使用 VBA 将数据从表 1 复制到表 2
【发布时间】：2015-11-10 20:20:05
【问题描述】：

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

表 1：
- Company
- Department
- Addressline1
- Addressline2
表 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

【问题讨论】：

这已经做死了，只要谷歌你自己的标题。一旦你尝试了一些东西，你总是可以回复一个特定的问题。
这是我能得到的。

标签： excel vba

【解决方案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 并遵循这些提示。

以后请用搜索引擎解决你的问题，不要重复发帖。

【讨论】：