上次錯誤,重新整理, 如何把資料自動填入工作表2

周大偉

大大好:
上次錯誤,重新整理, 如何把工作表3資料填入工作表2,
工作表3,黃色儲存格是填寫資料,當填寫後, 用者按下按鈕, 資料便填入工作表2,
而資料不斷輸入, 故工作表2資料不斷向下填寫新增,
請大大們教導, 附件

bb.rar (5.44 KB)

下載次數: 20

2011-4-7 23:52

Hsieh

1. Private Sub CommandButton2_Click()
   
2. Dim ar(10)
   
3. For i = 6 To 24 Step 2
   
4.   ar(s) = Cells(i, 5).Value
   
5.   s = s + 1
   
6. Next
   
7. Sheets("sheet2").[A4].Resize(, 10) = ar
   
8. End Sub

複製代碼

周大偉

大大, 早晨
謝謝協助, 有一問題, 資料可以輸入, 但當輸入資新資料時, 是覆蓋原有資料, 可否做到在工作表3輸入新資料, 而在工作表2, 資料接住上筆資料往下又延續, 謝謝!
Private Sub CommandButton2_Click()
Dim ar(10)
For i = 6 To 24 Step 2
  ar(s) = Cells(i, 5).Value
  s = s + 1
Next
Sheets("sheet2").[A4].Resize(, 10) = ar
End Sub

ANGELA

Sheets("sheet2").[A4].Resize(, 10) = ar

Sheets("sheet2").[A65536].End(3).Offset(1, 0).Resize(, 10) = ar

Hsieh

回復 3# 周大偉
這種問題太多了，請確實瞭解程式碼意義
以前也都有過解釋，請多爬文
以後這樣問題不再回覆

    Sheets("sheet2").[A65536].End(Xlup).Offset(1,0).Resize(, 10) = ar