帖子: 152
主題: 45
精華: 0
積分: 239
點名: 266
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2021-2-19 15:08 | 只看該作者

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

請教各位前輩,Dim arr1(1 To 100, 1 To 2),arr = [a2:d100],其中100,要如何用變數取代,謝謝

條件顯示.rar (15.93 KB)

樓主熱帖

杜小平

dou10801

中學生 Rank: 2

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 266
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

6^#

發表於 2021-2-22 11:45 | 只看該作者

剛學VBA有很多要學習,感謝各位指導,經調整後以下是我要的語法,謝謝大家.
Dim i&, j&, k%
Dim arr As Variant
Dim MAS As Variant
MAS = Cells(Rows.Count, 1).End(xlUp).Row
'Dim arr1(1 To 100, 1 To 2) '原稿
ReDim arr1(1 To MAS, 1 To 2)  '調整後的語法
'arr = [a2:d100] '原稿
'arr = ["a2:d" & MAS ]
arr = Range(Cells(2, 1), Cells(MAS, 4).Address) '調整後的語法
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then
      If arr(i, 1) = Cells(3, "e") And arr(i, 2) = Cells(3, "f") Then
         k = k + 1
         arr1(k, 1) = arr(i, 3)
         arr1(k, 2) = arr(i, 4)
      End If
End If
Next i
Cells(3, "h").Resize(UBound(arr1), 2) = arr1

杜小平

TOP

quickfixer

中學生 Rank: 2

帖子: 154
主題: 1
精華: 0
積分: 200
點名: 2
作業系統: windwos 7
軟體版本: 64bit
閱讀權限: 20
註冊時間: 2017-5-29
最後登錄: 2025-6-27

5^#

發表於 2021-2-22 08:49 | 只看該作者

回復 4# dou10801

Dim arr1()
mas = 999
ReDim arr1(1 To mas, 1 To 2)
Debug.Print UBound(arr1, 1), UBound(arr1, 2)

TOP

dou10801

中學生 Rank: 2

帖子: 152
主題: 45
精華: 0
積分: 239
點名: 266
作業系統: WIN10
軟體版本: 2010
閱讀權限: 20
性別: 男
來自: 台灣
註冊時間: 2011-6-21
最後登錄: 2025-10-24

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章論壇榮譽勳章論壇贊助勳章

4^#

發表於 2021-2-22 08:12 | 只看該作者

感謝兩位前輩,我的意思是Dim arr1(1 To 100, 1 To 2)中的100如何用變數活用,因為
MAS = Cells(Rows.Count, 1).End(xlUp).Row
Dim arr1(1 To MAS, 1 To 2)
會錯誤,[必需是常數運算式]

杜小平

TOP

軒云熊

中學生 Rank: 2

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

3^#

發表於 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

複製代碼

TOP

acdx

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2025-4-8

2^#

發表於 2021-2-19 16:25 | 只看該作者

Sub 按鈕2_Click()
Dim i&, j&, k%
Dim arr As Variant
Dim MAS As Variant
MAS = Cells(Rows.Count, 1).End(xlUp).Row
'Dim arr1(1 To MAS, 1 To 2)
Dim arr1(1 To 100, 1 To 2)
arr = Range(Cells(2, 1), Cells(2, MAS))
'arr = ["A2:D" & MAS ]
For i = 1 To UBound(arr)
If arr(i, 1) <> "" Then
      If arr(i, 1) = Cells(3, "e") And arr(i, 2) = Cells(3, "f") Then
         k = k + 1
         arr1(k, 1) = arr(i, 3)
         arr1(k, 2) = arr(i, 4)
      End If
End If
Next i
Cells(3, "h").Resize(UBound(arr1), 2) = arr1
End Sub

TOP