![]() |
PCDVD數位科技討論區
(https://www.pcdvd.com.tw/index.php)
- 疑難雜症區
(https://www.pcdvd.com.tw/forumdisplay.php?f=34)
- - excel 抓值問題??
(https://www.pcdvd.com.tw/showthread.php?t=870021)
|
|---|
excel 抓值問題??
各位大大好,
小弟有各問題想請教各位,現在在單個excel檔案中 有多個worksheet(例如sheet1, sheet2, sheet3) 每個worksheet中的固定欄位(如B2欄位),存有要抓取的資料 現在小弟想把sheet1之B2欄位, sheet2之B2欄位, sheet3之B2欄位 抓至新建立的sheet4之A1,A2,A3欄位 (或擷取至另外檔案也可) 可否使用Excel VBA達成呢?? 或其他方法也可以 還請各位大大幫忙阿 PS: 小弟上述例子為簡化表示,事實上的問題為大約有1000多各worksheet,若要一各一各慢慢貼可能會貼死人阿 :jolin: |
Private Sub Worksheet_Activate()
For i = 1 To Sheets.Count Sheet10.Cells(i, 1) = Sheets(i).Cells(2, 2) Next i End Sub 這樣如何 照你要求的欄位 我試了不管數值或文字都可行 |
| 所有的時間均為GMT +8。 現在的時間是04:57 AM. |
vBulletin Version 3.0.1
powered_by_vbulletin 2025。