- 帖子
- 976
- 主題
- 7
- 精華
- 0
- 積分
- 1018
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- Office 2016
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-4-19
- 最後登錄
- 2026-5-26
|
21#
發表於 2021-7-14 14:42
| 只看該作者
回復 19# wang077
請再測試看看，謝謝
Sub 更新2()
Dim Arr, T, T2, i&
If Sheets(1).FilterMode Then Sheets(1).ShowAllData
Arr = Sheets(1).Range([sheet1!f1], [sheet1!a65536].End(3))
Arr2 = Sheets(2).Range([sheet2!f1], [sheet2!a65536].End(3))
For i2 = 3 To UBound(Arr2)
T2 = Arr2(i2, 1) & Arr2(i2, 3) & Arr2(i2, 6)
For i = 1 To UBound(Arr)
T = Arr(i, 1) & Arr(i, 3) & Arr(i, 6)
If T = T2 Then
Sheets(2).Range("h" & i2 & ":bq" & i2).Copy Sheets(1).Range("h" & i)
End If
Next
Next
End Sub |
|
