请问如何将某行和某列数据写入数组

shchint

请问如何将B列数据写入数组，如何将第5行数据写入数组？

arr = Range("B5").?????
问号这里应该怎么写，分别将行和列数据写入数组，应该是从B5单元格开始，分别扩展到数据区域的末行（第29行）和末列（H列），末行和末列不固定。请老师指教一下，谢谢。

ykcbf1100

上个附件啊。

gwjkkkkk

arr = Range("B5", Cells(Rows.Count, "B").End(3))

清风竹-

      m = Cells(Row.Count, "a").End(3).Row
      B列数组 = Cells(4, "b").Resize(m - 3, 1)
      
       n = Cells(4, Columns.Count).End(1).Column
       5行数组 = Cells(5, "a").Resize(1, n)



arr = Range("B5").CurrentRegion
包含标题行

shchint

ykcbf1100 发表于 2023-4-6 14:12
上个附件啊。

老师，没有附件，只要获取某行和某列数据就行，我就可以写入数组了。
也就是说从某个单元格获取对应的整行和整列数据。
比如说获取末行 = Range("B5").End(xlDown).Row，但我不知道一句完整的写法怎样写

shchint

清风竹- 发表于 2023-4-6 14:21
arr = Range("B5").CurrentRegion
包含标题行

这是获取整个区域了吧，我要分别获取行和列数据

ykcbf1100

没有附件，那就这样贴一下吧

大体如此。

吴中泉

shchint 发表于 2023-4-6 14:29
这是获取整个区域了吧，我要分别获取行和列数据

   max_row = Cells(Rows.Count, 2).End(xlUp).Row
   max_col = Cells(5, Columns.Count).End(xlToLeft).Column
   arr = Range("b5:b" & max_row) '取B5开始的一行数组
   brr = Range(Cells(5, 2), Cells(5, max_col)) '取B5开始的一列数组

shchint

ykcbf1100 发表于 2023-4-6 14:39
没有附件，那就这样贴一下吧

大体如此。

谢谢老师，可以了。

shchint

吴中泉 发表于 2023-4-6 14:54
max_row = Cells(Rows.Count, 2).End(xlUp).Row
   max_col = Cells(5, Columns.Count).End(xlToLeft ...

谢谢老师，可以了。但你这个备注行列反了吧