使用 VBA 在工作表之间复制单元格

Question

我有一份来自公司网站的仪表板副本，我正在尝试将电子邮件原始数据复制到我编辑过的作品中sheet，但它仍然一团糟：有点像这样:

[

这个sheet名字"Sheet3"还有一个是"Sheet1"。他们都有相同的 Tracking# 号码：

Sub CopyRow()

Dim I As Variant
I = Sheet1.Cells(Sheet1.Rows.Count, 6).End(xlUp).Row`
If Not Intersect(Target, Worksheets("Sheet3").Columns("E:E")) Is Nothing Then
     If InStr(UCase(Target.Value), "@") > 0 Then
         If InStr(UCase(Worksheets("Sheet3").Columns("B:B")), "L") = Worksheets("Sheet1").Columns("B:B") Then
         Target = I

   End If
End If

End Sub

Answer 1

我通常会这样做，假设 sheet1 是 sheet，由 sheet3;

的数据更新

dim destLength as Long 'rows used in sheet 1
dim sourceLength as Long 'rows used in sheet 3

打开包含源文件的目录并遍历每个文件并执行以下操作

destLength = Sheet1.Range("A"&Rows.Count).End(xlUp).Row
sourceLength = Sheet3.Range("A"&Rows.Count).End(xlUp).Row
Sheet3.Range("B1" & ":I" & sourceLen).copy
Sheet1.Range("A" & destLen + 1).pasteSpecial xlValues
Application.CutCopyMode = False

使用 VBA 在工作表之间复制单元格

Copy cell between worksheet using VBA

excel

vba

dashboard

worksheet-function