- 帖子
- 2834
- 主題
- 10
- 精華
- 0
- 積分
- 2890
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-11-27
|
2#
發表於 2015-10-11 12:09
| 只看該作者
Sub AX1011()
Dim xR As Range, xE As Range, xF As Range
For Each xR In Range([A!F2], [A!F65536].End(xlUp))
If xR = "" Then GoTo 101
'↓取得Ｂ表最後一筆資料位置
Set xE = [B!F65536].End(xlUp)
'↓尋找Ｂ表符合值最後一筆位置
Set xF = [B!F:F].Find(xR, After:=xE(2), SearchDirection:=xlPrevious, Lookat:=xlWhole)
'↓若有找到符合值，下方插入一列，並將儲存格變數代換為xE
If Not xF Is Nothing Then xF(2).EntireRow.Insert: Set xE = xF
'↓整列貼至xE的下一列
xR.EntireRow.Copy xE(2).EntireRow
101: Next
End Sub |
|
發表於 2015-10-10 18:22
| 
