Excel将单元格值复制到其他工作表

我正在处理一个macros，将工作表“A”的某些行（如果列A不是空白）复制到工作表“B”。 经过一点研究，下面的代码突然出现了。 只有我似乎没有解决的办法是复制单元格值而不是链接的公式，我尝试执行“复制/粘贴特殊”命令，但是我没有获得特定的连贯代码语言。

Sub Samenvattend() ' ' Samenvattend Macro ' ' Sneltoets: Ctrl+Shift+S ' Dim a As Range Dim j As Integer Dim Source As Worksheet Dim Target As Worksheet ' Change worksheet designations as needed Set Source = ActiveWorkbook.Worksheets("gedetailleerde meetstaat") Set Target = ActiveWorkbook.Worksheets("samenvattende meetstaat") j = 1 ' Start copying to row 1 in target sheet For Each a In Source.Range("A1:A10000") ' Do 10000 rows If a <> "" Then Source.Rows(a.Row).Copy Target.Rows(j) j = j + 1 End If Next a End Sub 

谢谢 ：）

Answer 1

如果你只是想设置两个单元格的值相等，你可以跳过复制/粘贴，并简单地设置范围的值相等。

这也让你跳过使用剪贴板，往往会更快一点。

只要记住这样做，它是[DESTINATION range].value = [ORIGIN range].value而copy/paste ，它是[ORIGIN range].copy [DESTINATION range] 。

 For Each a In Source.Range("A1:A10000") ' Do 10000 rows If a <> "" Then Target.Rows(j).value = Source.Rows(a.Row).Value j = j + 1 End If Next a