将b5列各单元格分别逐行写入变量中

CAONI

b5开始的b列各单元格分别填有数据，现从上到下将b5开始的b列各单元格的数据以一个记事本txt格式逐行保存到 变量str中

例如：

b5单元格中填有数据：1 12 22 88
b6单元格中填有数据：2 3 4 5
b7单元格中填有数据：2 3 4 6 77 700
b8单元格中填有数据：13 9 88 99
b9单元格中填有数据：66 99 78 98

现将b5-b9各单元格数据逐行以text格式保存到变量str中：
1 12 22 88
2 3 4 5
2 3 4 6 77 700
13 9 88 99
66 99 78 98


谢谢！

大概如下面：

dim str as string

Arr = Range("b5:b" & Range("b1048576").End(3).Row)
......
  Dim Fil

     Do While Not EOF(1)
        Line Input #1, str
      Close #1

Learner2022

emmm，为什么要逐行保存到变量

taller

CAONI

taller 发表于 2023-1-5 07:01

程序满足要求，谢谢版主！

CAONI

Learner2022 发表于 2023-1-5 01:14
emmm，为什么要逐行保存到变量

后面的计算要用