VBA 二维数组和字典

数据源:

二维数组和字典的主要使用方法

Sub test()Dim dict As ObjectSet dict = CreateObject("Scripting.Dictionary")Set sh = Worksheets("Sheet3")Set Rng = sh.Range("A1:E" & sh.Range("E1").End(xlDown).Row)'sh.Range("E1").End(xlDown).Row 得到E列最后一行的行号arr = Rng.Valuearr_min = LBound(arr)          '数组最小元素arr_max_row = UBound(arr)      '二维数组的最大行数arr_max_col = UBound(arr, 2)   '二维数组的最大列数'遍历第一个数组元素,把第2行数据存入字典For Row = 1 To arr_max_rowFor Col = 1 To arr_max_colDebug.Print (arr(Row, Col))If Col = 2 Thendict.Add Row, arr(Row, Col)End IfNextNextkeys = dict.keys()      '取得全部keyitems = dict.items()    '取得全部itema = dict(2)             '取得单个值,只能用key来获取dict(2) = 9999          '赋予单个值,只能用key来获取a = dict(2)
End Sub

WPS的JS代码 

function 枚举二维数据(){let sh=Worksheets("Sheet3")let rng=sh.Range("A1:E20")let	arr=rng.Value()let outArr=[]arr.forEach((iRow,i)=>{iRow.forEach((iCol,j)=>{			if (j==2){outArr.push(iCol)}})})console.log(outArr.length)outArr.forEach((data)=>{console.log(data+"\n")})
}

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！