Re: [算表] 開啟檔案指定位置輸入vba
※ 引述《ptguitar (佩蒂吉他)》之銘言：
: ※ 引述《ptguitar (佩蒂吉他)》之銘言：
其實還是一直卡關
後來用這樣的vba
可是copy過去還是一樣不行
用從比對的 對照到資料的標題 copy過去
原始檔案
https://drive.google.com/open?id=0BwCgrQhGgaw7bkM0RzM1eXM4YjQ
不知道是哪幾行的思考邏輯有誤可否幫我修改一下 感謝
Sub Ex()
Dim E, F As Range
Dim x, y, z, scell, tcell As String
Dim startNum As Long
Dim SS, TS As Worksheet
Set SS = Sheets("比對")
Set TS = Sheets("資料")
x = Sheets("比對").Range("A2").End(xlDown).Row
y = Sheets("資料").Range("A2").End(xlDown).Row + 1
startNum = 0
For Each E In SS.Range("A1:J1")
scell = WorksheetFunction.Match(E, SS.Range("A1:J1"), 0) - 1
For Each F In TS.Range("A1:J1")
tcell = WorksheetFunction.Match(F, TS.Range("A1:J1"), 0) - 1
If scell = tcell Then
SS.Range("A2:A" & x).Offset(, tcell).Copy TS.Range("A" & y).Offset(, tcell)
startNum = tcell
Exit For
End If
Next
Next
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 1.34.252.11
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1487055242.A.6BE.html
→
02/14 15:10, , 1F
02/14 15:10, 1F
→
02/14 15:13, , 2F
02/14 15:13, 2F
→
02/14 15:47, , 3F
02/14 15:47, 3F
→
02/14 15:47, , 4F
02/14 15:47, 4F
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 3 之 3 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章
