如何依輸入之筆數及數量 ,以巨集復製資料 - Excel程式區

[發問] 如何依輸入之筆數及數量 ,以巨集復製資料

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 62
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-3-13

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

1^# 跳轉到 »

發表於 2011-5-4 17:57 | 顯示全部帖子

回復 1# melvinhsu1105

Private Sub CommandButton1_Click()
Dim Ar()
d = InputBox("輸入列位", , 2)
k = InputBox("輸入對應數量", , 2)
Do Until d = "" Or k = ""
ReDim Preserve Ar(s)
Ar(s) = Array(d, k)
s = s + 1
d = InputBox("輸入列位", , 2)
k = InputBox("輸入對應數量", 2)
Loop
For i = 0 To UBound(Ar)
For j = 1 To Ar(i)(1)
r = IIf(Application.CountA(Sheet2.Columns("A")) = 0, 1, Sheet2.[A65536].End(xlUp).Row + 1)
Rows(Ar(i)(0)).Copy Sheet2.Cells(r, 1)
Next
Next
End Sub