請問各位前輩
我要怎麼寫才能完成下列問題呢?
點選checkbox之後，自動搜尋所有sheet跟checkbox屬性中caption一樣名稱的儲存格，並複製整列至新的sheet。
點選下一個checkbox會重複上面的動作，只是會在之間空一列。
麻煩了 可以給小弟一些提示嗎
EXCEL VBA Checkbox點選複製資料?
2016-09-26 8:32 am
回答 (1)
2016-10-01 5:26 am
自動搜尋所有sheet
For i = 1 To Sheets.Count
Sheets(i).Select
程序......
搜尋範圍為列(COUNTIF符合條件的>0就複製整列)(Match,vlookup)
Rx=sheets("NEW").[A65536].end(xlup).row+1
Rows(i).copy sheets("NEW").cells(Rx,1)
Next
更換不同caption
If i = 1 Then
Rx = Sheets("NEW").[A65536].End(xlUp).Row + 2
Else
Rx = Sheets("NEW").[A65536].End(xlUp).Row + 1
End If
複製資料.copy sheets("NEW").cells(Rx,1)就會空一行
For i = 1 To Sheets.Count
Sheets(i).Select
程序......
搜尋範圍為列(COUNTIF符合條件的>0就複製整列)(Match,vlookup)
Rx=sheets("NEW").[A65536].end(xlup).row+1
Rows(i).copy sheets("NEW").cells(Rx,1)
Next
更換不同caption
If i = 1 Then
Rx = Sheets("NEW").[A65536].End(xlUp).Row + 2
Else
Rx = Sheets("NEW").[A65536].End(xlUp).Row + 1
End If
複製資料.copy sheets("NEW").cells(Rx,1)就會空一行
收錄日期: 2021-05-03 13:48:14
原文連結 [永久失效]:
https://hk.answers.yahoo.com/question/index?qid=20160926003201AAQbPrw