無論選擇一行、兩行,還是很多行,我都只需要複制被選擇的第一行到另一個sheet 之中。
For Each E In Selection.EntireRow ,我應該怎麼改寫
改為
Set E = Selection(1, 1).EntireRow
Sub setup_cal()
Dim E As Range
Set E = Selection(1, 1).EntireRow
If E.Row > 1 Then
With Sheets("Sheet2")
.[a1] = E.Range("b1") '客戶編號
.[b1] = E.Range("d1") '客戶名稱
.[k2] = E.Range("e1") '本期應收
End With
End If
End Sub