Re: [算表] 開啟檔案指定位置輸入vba
※ 引述《ptguitar (佩蒂吉他)》之銘言：
: 軟體:excel
: 版本:2007
: 最近因為工作上有遇到
: 有一個excel檔案
: 標題是A,B,C,D,E.....有順序
: 每天都要匯入檔案
: 可是人家給的檔案標題都是不固定
: 可能是A,C,B,E..
: 現在要依照順序給他貼進去對應欄位
: 已經有一個大概檔案
: 不過不知道怎麼迴圈設定自動寫入
: 檔案如下:
: https://drive.google.com/open?id=0BwCgrQhGgaw7SmdoTVpuUnl1Y2M
我先試寫把匯入的檔案貼到比對的工作表
然後比對的標題跟資料的標題核對後貼到資料對應的欄位
用下面的vba
Sub try()
Dim E As Range
Dim x, y As String
x = Sheets("比對").Range("A2").End(xlDown).Row
y = Sheets("資料").Range("A2").End(xlDown).Row + 1
For Each E In Sheets("比對").Range("A1:Z1")
I = Application.Match(E, Sheets("資料").Range("A1:Z1"), 0) - 1
Worksheets("比對").Activate
Range("A2:A" & x).Offset(0, I).Select
Selection.Copy
Worksheets("資料").Activate
Range("A" & y).Offset(0, I).Select
ActiveSheet.Paste
Next
End Sub
不過都會貼錯跟出現錯誤訊息
不知道那邊想法有錯
vba新手 感謝指導^^
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.34.252.11
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1486623171.A.519.html
→
02/09 15:03, , 1F
02/09 15:03, 1F
→
02/09 15:03, , 2F
02/09 15:03, 2F
→
02/09 15:05, , 3F
02/09 15:05, 3F
→
02/09 15:16, , 4F
02/09 15:16, 4F
→
02/09 15:18, , 5F
02/09 15:18, 5F
→
02/09 15:19, , 6F
02/09 15:19, 6F
→
02/09 15:19, , 7F
02/09 15:19, 7F
→
02/09 15:20, , 8F
02/09 15:20, 8F
→
02/09 15:20, , 9F
02/09 15:20, 9F
討論串 (同標題文章)
Office 近期熱門文章
PTT數位生活區 即時熱門文章
