|
本帖最后由 lijian8003 于 2014-11-3 20:58 编辑
D:/数据/a.txt 有数据35 8,格式为:
35
8
欲将a.txt的数据按如下方式循环导入excel第1行:
A1=空
B1=35 C1=8 D1空 E1空
F1=35 G1=8 H1空 I1空
J1=35 K1=8 L1空 M1空
N1=35 O1=8 P1空 Q1空
……
XEX1=35 XEY1=8 XEZ1空 XFA1空
如此共循环4095次。这样的宏代码如何写?恳望得到帮助。
- Sub test()
- Dim arr(1)
- Open "D:/数据/a.txt" For Input As #1
- Do While Not EOF(1)
- Line Input #1, st
- arr(k) = st
- k = k + 1
- Loop
- Close #1
- For n = 2 To 4095 * 4 Step 4
- Range(Cells(1, n), Cells(1, n + 1)) = arr
- Next
- End Sub
复制代码试试吧
|
|