PCDVD數位科技討論區

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)

onizuka-t 2009-09-24 08:57 PM

excel 抓值問題??
 
各位大大好,

小弟有各問題想請教各位,現在在單個excel檔案中

有多個worksheet(例如sheet1, sheet2, sheet3)

每個worksheet中的固定欄位(如B2欄位),存有要抓取的資料

現在小弟想把sheet1之B2欄位, sheet2之B2欄位, sheet3之B2欄位

抓至新建立的sheet4之A1,A2,A3欄位 (或擷取至另外檔案也可)

可否使用Excel VBA達成呢?? 或其他方法也可以

還請各位大大幫忙阿

PS: 小弟上述例子為簡化表示,事實上的問題為大約有1000多各worksheet,若要一各一各慢慢貼可能會貼死人阿 :jolin:

mobius797 2009-09-24 10:21 PM

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。