[英]VBA copy from other sheets and paste as values
我有一個宏,我從一些例子,從所有其他工作表復制值稱為“摘要”。 值范圍從A列到M,從第14行到結束。 我是vba的新手,無法弄清楚如何修改此代碼,因此它只會粘貼值。
Sub copy_info()
Dim i As Long, j As Long, lastRow As Long
Dim sh As Worksheet
With Sheets("Summary")
End With
j = 14
For Each sh In ActiveWorkbook.Sheets
If sh.Name <> "Summary" Then
lastRow = sh.Cells(sh.Rows.Count, "B").End(xlUp).Row
For i = 14 To lastRow
If sh.Range("H" & i) > 0 Then
sh.Range("A" & i & ":M" & i).Copy Destination:=Worksheets("Summary").Range("A" & j)
Sheets("Summary").Range("M" & j) = sh.Name
j = j + 1
End If
Next i
End If
Next sh
Sheets("Summary").Columns("A:M").AutoFit
End Sub
改變這一行:
sh.Range("A" & i & ":M" & i).Copy Destination:=Worksheets("Summary").Range("A" & j)
到2行:
sh.Range("A" & i & ":M" & i).Copy
Worksheets("Summary").Range("A" & j).PasteSpecial xlPasteValues
或者,你可以寫
Worksheets("Summary").Range("A" & j ":M" & j).Value = sh.Range("A" & i & ":M" & i).Value
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.