在excel工作表設一個Button鍵...(請見內容)

Question

各位大大好，請大家幫忙
若我在\"工作表1\"上放一個Button鍵，當按下時，\"工作表1\"的資料會跑到\"工作表2\"上分別指定的位置，例如\"工作表1\"上有姓名、組別、學號、班級，而\"工作表2\"也有姓名、組別、學號、班級，我要怎麼寫才會只要按下Button鍵就可以在\"工作表2\"得到相同的資料呢??而\"工作表1\"的資料只要跑到\"工作表2\"就會自動清空，而下次\"工作表1\"輸入資料按下Button鍵後資料會接續在\"工作表2\"上一筆資料底下，這樣應該怎麼寫呢

Answer 1

在巨集模組裡，加上此vba
Sub Macro1( )
　Rows("2:2").Select
　Selection.Copy
　Sheets("Sheet2").Select
　Range("A1").Select
　If Range("A2").Value = "" Then
　　Rows("2:2").Select
　Else
　　Selection.End(xlDown).Select
　　Rows(Selection.Row + 1 & ":" & Selection.Row + 1).Select
　End If
　ActiveSheet.Paste
　Sheets("Sheet1").Select
　Application.CutCopyMode = False
　Selection.ClearContents
End Sub

再把Botton指定巨集為Macro1即可
這段程式碼是直接複製整列的方式
如果您只是要複製幾個欄位
建議使用變數先將值暫存下來（例：strName=Cells(2,1))
再將值指定給Sheet2的欄位
Sheets("Sheet1").Select
Cells(2,1)=strName