Dim arr1(1 To 100, 1 To 2),arr = [a2:d100],其中100,如何用變數取代 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » Dim arr1(1 To 100, 1 To 2),arr = [a2:d100],其中100,如何用變數取代

返回列表下一主題上一主題發帖

[發問] Dim arr1(1 To 100, 1 To 2),arr = [a2:d100],其中100,如何用變數取代

中學生 Rank: 2

帖子: 253
主題: 5
精華: 0
積分: 308
點名: 0
作業系統: W10
軟體版本: Excel 2016
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2019-6-16
最後登錄: 2024-3-20

1^# 跳轉到 »

發表於 2021-2-20 04:22 | 顯示全部帖子

本帖最後由軒云熊於 2021-2-20 04:28 編輯

回復 1# dou10801

有空幫我試試看是不是你要的結果謝謝

Public Sub 比對練習()
Application.ScreenUpdating = False
Range([H3], [I3].End(4)).ClearContents
Brr = Range([A1], [D65535].End(3))
For X = 2 To UBound(Brr)
If Brr(X, 1) & Brr(X, 2) = [E3] & [F3] Then
Brr(1 + k, 1) = Brr(X, 1)
Brr(1 + k, 2) = Brr(X, 2)
k = k + 1
End If
Next X
[H3].Resize(k, 2) = Brr
Application.ScreenUpdating = True
End Sub

複製代碼

靜思自在 : 看別人不順眼，是自己修養不夠。

返回列表下一主題上一主題