首先，我對 VBA 很陌生，如果這是微不足道的，我深表歉意
我的第一個表，名為“MAIN”（逗號表示不同的列）：
1,2,3
4,5,6
5,7,9
第三行是使用 SUM 函式計算的。我正在嘗試將整個作業表復制到另一個名為“靜態資料”的作業表中，但第三行應該只包含數字 5、7、9，而不是相應的 SUM 公式。
下面的代碼從 MAIN 中獲取此資料并將其粘貼到“靜態資料”作業表中。但是，不會從單元格 A1 開始復制它。它也不會從第 3 行中洗掉公式。
這是我當前的代碼：
Public Sub CopyMain()
Dim i As Integer
i = 1
Worksheets(i).Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
Worksheets("Static Data").Select
ActiveSheet.Paste
End Sub
我使用 i 變數，因為 MAIN 將始終是作業簿中的第一個作業表。
這會回傳以下錯誤，我很困惑為什么：
編譯錯誤：未定義子或函式
uj5u.com熱心網友回復：
單程：
Public Sub CopyMain()
Dim i As Long
i = 1
With Worksheets("Static Data")
Worksheets(i).Range("A1").CurrentRegion.Copy .Range("A1")
.Range("A1").CurrentRegion.Value = .Range("A1").CurrentRegion.Value
End With
End Sub
編輯 - 沒有With
Public Sub CopyMain()
Dim i As Long
i = 1
Worksheets(i).Range("A1").CurrentRegion.Copy Worksheets("Static Data").Range("A1")
Worksheets("Static Data").Range("A1").CurrentRegion.Value = Worksheets("Static Data").Range("A1").CurrentRegion.Value
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/525228.html
標籤：擅长vba