EXCEL的ARRAY函数怎么能简化

swallowly

求教：下面标红色的代码怎么能写得简化一点

Sub 资产负债()
Dim cnADO, rsADO As Object
Dim strPath, strTable, strSQL As String
Set cnADO = CreateObject("ADODB.Connection")
strPath = "F:\报表类工作\张文超报表\合并报表\22.9月合并报表\2209合并3家（报集团）.xlsx"
'建立连接
cnADO.Open "provider=Microsoft.ACE.OLEDB.12.0;extended properties='excel 8.0;hdr=no;imex=1';data source=" & strPath

'2022-9-30数据，如果行次有变化要改相应的ARR的数字
arr = Array(6, 3, 8, 4, 9, 5, 10, 6, 13, 9, 14, 10, 24, 18, 26, 20, 27, 21, 28, 22, 29, 25, 34, 28, 36, 31)
For i = LBound(arr) To UBound(arr) Step 2
strTable = "[报集团3家资产负债$C" & arr(i) & ":C" & arr(i) & "]"
strSQL = "select * from " & strTable
Cells(arr(i + 1), "D").CopyFromRecordset cnADO.Execute(strSQL)
Next i

arr = Array(6, 38, 8, 39, 9, 40, 10, 41, 11, 42, 12, 45, 15, 49, 32, 62, 39, 63, 41, 66, 42, 67)
For i = LBound(arr) To UBound(arr) Step 2
strTable = "[报集团3家资产负债$G" & arr(i) & ":G" & arr(i) & "]"
strSQL = "select * from " & strTable
Cells(arr(i + 1), "D").CopyFromRecordset cnADO.Execute(strSQL)
Next i


cnADO.Close
Set cnADO = Nothing
End Sub

E风卍行H

看你的情况，应该是两列数据，取其中的一些，如果是这样，可以参考下面方法：
将数据写在单元格里面（包括不需要处理的数据），另外加一列辅助列，辅助列用1/0 或者yes/no 标示哪些数据是需要的，然后用数组保存这些数据，再进行判断哪些是需要的

swallowly

E风卍行H 发表于 2022-11-8 17:42
看你的情况，应该是两列数据，取其中的一些，如果是这样，可以参考下面方法：
将数据写在单元格里面（包括 ...

像这样在A2:B18的单元格区域数据怎么写成数组，能麻烦写给我看看吗

lele6809

arr=range("A2:B18")

swallowly

lele6809 发表于 2022-11-10 09:31
arr=range("A2:B18")

研究了下，终于实现了，现把代码贴下面。


Sub 现() '同工作簿COPY
arr = Worksheets("sheet6").Range("b92:c109")
For i = LBound(arr, 1) To UBound(arr, 1) Step 1

Worksheets("现金流量表").Range(Cells(arr(i, 1), "B").Address, Cells(arr(i, 1), "B").Address).Copy Worksheets("附表1现金明细表").Range(Cells(arr(i, 2), "C").Address, Cells(arr(i, 2), "C").Address)
Next i


End Sub

taller

请参考 https://blog.csdn.net/taller_2000/article/details/105007190

swallowly

E风卍行H 发表于 2022-11-8 17:42
看你的情况，应该是两列数据，取其中的一些，如果是这样，可以参考下面方法：
将数据写在单元格里面（包括 ...

加辅助列的话，代码怎么写

E风卍行H

swallowly 发表于 2022-11-16 09:13
加辅助列的话，代码怎么写

上文件会比较好

swallowly

E风卍行H 发表于 2022-11-16 12:28
上文件会比较好

根据对应表的行次，将现金流量表数据 用代码对应到现金明细表，ARRAY的函数怎么去掉“否”的数据？