請問要如何在EXCEL寫一段程式碼自動往下一欄貼上如果A欄已經有資料自動貼到B欄謝謝?

💻 軟件台軟體

[匿名]

2019-05-03 9:41 pm

回答 (1)

Cheng

2019-05-07 4:04 pm

Cx = Application.CountA([A:A])
If Cx = 0 Then
Columns("D:D").Copy Range("A1")
Else
Columns("D:D").Copy Range("B1")
End If

👍 0 👎 0