因此，當事件（按下按鈕）發生時，我使用 VBA 來存盤和使用資料。我需要垂直復制原始資料，但將其水平復制到存檔中，以便更好地過濾它。
Private Sub CommandButton1_Click()
Dim Data As Range
Set Data = Range("C2:C21")
ThisWorkbook.Worksheets("Input").Range("C2:C21").Copy
ThisWorkbook.Worksheets("Calculator").Range("C2:C21").PasteSpecial Paste:=xlPasteValues
Dim dataInput As Worksheet
Dim dataArchive As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
Set dataInput = ThisWorkbook.Worksheets("Input")
Set dataArchive = ThisWorkbook.Worksheets("Archive")
lCopyLastRow = dataInput.Cells(dataInput.Rows.Count, "A").End(xlUp).Row
lDestLastRow = dataArchive.Cells(dataArchive.Rows.Count, "A").End(xlUp).Offset(1).Row
dataInput.Range("C2:C21" & lCopyLastRow).Copy _
dataArchive.Range("A" & lDestLastRow)
End Sub
uj5u.com熱心網友回復：
Private Sub CommandButton1_Click()
Dim dataInput As Worksheet
Dim dataArchive As Worksheet
Dim lCopyLastRow As Long
Dim lDestLastRow As Long
Set dataInput = ThisWorkbook.Worksheets("Input")
Set dataArchive = ThisWorkbook.Worksheets("Archive")
lDestLastRow = dataArchive.Cells(dataArchive.Rows.Count, "A").End(xlUp).Offset(1).Row
dataInput.Range("C2:C21").Copy
dataArchive.Range("A" & lDestLastRow).PasteSpecial Transpose:=True
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/410923.html
標籤：