功課問題，有關 VBA

樓上的VBA, 非常簡潔, 可取。
但如果Sheet1 C3:C23 是有空格, 或 數字格式(如千份逗號, %, 日期格式, 貨幣格式...等), Sheet2 的空格會變成 0, 及任何數字格式都不會出現。為補此不足, 我都寫一個VBA, 讓樓主多一個選擇。
Private Sub CommandButton1_Click()
Sheet1.Select
[C3:C23].Copy
Sheet2.Select
[C3:C23].PasteSpecial
Application.CutCopyMode = False
End Sub

2007-04-20 01:42:45 補充：
oh! 我將 Sheet1 和 Sheet2 掉轉咗, 正確應是:Private Sub CommandButton1_Click()Sheet2.Select[C3:C23].CopySheet1.Select[C3:C23].PasteSpecialApplication.CutCopyMode = FalseEnd Sub

1. 加入一個按鈕 CommandButton1
2. 在 CommandButton1_Click() 輸入以下程式碼:

Private Sub CommandButton1_Click()

Sheet1.Range("C3:C23").Value = Sheet2.Range("C3:C23").Value

End Sub

3. 然後按 CommandButton1 就有你想要的效果了
。
實在是很簡單的, 還有問題嗎?

2007-04-18 18:07:33 補充：
" 就是雙引號。