返回列表 上一主題 發帖

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

dou10801

帖子
146 
主題
41 
精華
0 
積分
229 
點名
294  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2024-11-28 

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

帖子
146 
主題
41 
精華
0 
積分
229 
點名
294  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2024-11-28 

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

帖子
154 
主題
1 
精華
0 
積分
200 
點名
31  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-11-28 
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

帖子
146 
主題
41 
精華
0 
積分
229 
點名
294  
作業系統
WIN10 
軟體版本
2010 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2011-6-21 
最後登錄
2024-11-28 

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

軒云熊

帖子
254 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
W10 
軟體版本
Excel 2016 
閱讀權限
20 
性別
男 
來自
台灣 
註冊時間
2019-6-16 
最後登錄
2024-9-23 
3#
發表於 2021-2-20 04:22 | 只看該作者
本帖最後由 軒云熊 於 2021-2-20 04:28 編輯

回復 1# dou10801

有空幫我試試看 是不是你要的結果 謝謝
  1. Public Sub 比對練習()
  2.     Application.ScreenUpdating = False

  4.     Range([H3], [I3].End(4)).ClearContents
  5.     Brr = Range([A1], [D65535].End(3))

  7.     For X = 2 To UBound(Brr)
  8.         If Brr(X, 1) & Brr(X, 2) = [E3] & [F3] Then
  9.             Brr(1 + k, 1) = Brr(X, 1)
  10.             Brr(1 + k, 2) = Brr(X, 2)
  11.             k = k + 1
  12.         End If
  13.     Next X
  14.    
  15.     [H3].Resize(k, 2) = Brr

  17.     Application.ScreenUpdating = True
  18. End Sub
複製代碼

TOP

acdx

帖子
132 
主題
56 
精華
0 
積分
190 
點名
0  
作業系統
Win10 
軟體版本
Office 365 
閱讀權限
20 
性別
男 
註冊時間
2012-5-17 
最後登錄
2024-4-29 
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

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題