作者ptguitar (佩蒂吉他)
看板Office
标题Re: [算表] 开启档案指定位置输入vba
时间Tue Feb 14 14:53:59 2017
※ 引述《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://webptt.com/cn.aspx?n=bbs/Office/M.1487055242.A.6BE.html
3F：→ ptguitar: S大真感谢! 一直搞不清楚那些变数要怎麽加进去 02/14 15:47
4F：→ ptguitar: 还要多看看S大这样的高手怎麽写才能进步 感谢~ 02/14 15:47