Question

我正在处理宏来复制工作表的某些行（如果列A不是空白）＆＃39; A＆＃39;到工作表＆＃39; B＆＃39;。经过一些研究后，突然出现了以下代码。只有我似乎无法解决的问题是复制单元格值而不是链接的公式，我试图实现复制/粘贴特殊的＆＃39;命令，但我没有得到具体的连贯代码语言。

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

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

1 个答案: