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

【问题标题】：Copy cell between worksheet using VBA使用 VBA 在工作表之间复制单元格
【发布时间】：2020-05-14 19:59:17
【问题描述】：

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

[

此工作表名为“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

【问题讨论】：

标签： excel vba dashboard worksheet-function

【解决方案1】：

我通常会这样做，假设 sheet1 是要由 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

【讨论】：