PCDVD數位科技討論區
PCDVD數位科技討論區   註冊 常見問題 標記討論區為已讀

回到   PCDVD數位科技討論區 > 其他群組 > 疑難雜症區
帳戶
密碼
 

回應
 
主題工具
onizuka-t
Major Member
 
onizuka-t的大頭照
 

加入日期: Jan 2002
您的住址: 台北~台中
文章: 256
excel 抓值問題??

各位大大好,

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

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

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

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

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

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

還請各位大大幫忙阿

PS: 小弟上述例子為簡化表示,事實上的問題為大約有1000多各worksheet,若要一各一各慢慢貼可能會貼死人阿
     
      
__________________
有多久沒有和老朋友見面了?
真誠的關心
會被永遠記得
見了面也不須太多話
只要用心地說出──好久不見。
舊 2009-09-24, 08:57 PM #1
回應時引用此文章
onizuka-t離線中  
mobius797
Junior Member
 
mobius797的大頭照
 

加入日期: Dec 2004
文章: 864
Private Sub Worksheet_Activate()
For i = 1 To Sheets.Count
Sheet10.Cells(i, 1) = Sheets(i).Cells(2, 2)
Next i
End Sub

這樣如何
照你要求的欄位
我試了不管數值或文字都可行
 
舊 2009-09-24, 10:21 PM #2
回應時引用此文章
mobius797離線中  


回應


POPIN
主題工具

發表文章規則
不可以發起新主題
不可以回應主題
不可以上傳附加檔案
不可以編輯您的文章

vB 代碼打開
[IMG]代碼打開
HTML代碼關閉



所有的時間均為GMT +8。 現在的時間是02:19 AM.


vBulletin Version 3.0.1
powered_by_vbulletin 2025。