Question

TXT里面的特定数据怎么导入到excel表里指定的位置呢用vba编写的，

如E:\22文件夹中的1.txt记事本中每行只有一个数值1100
1250
1400
1650
1800
.
.
.依次导入到excel工作表中的a12,a15,a18,a21依次类推下去，哪位大神帮帮忙呢

Answer 1

Sub 导入数据()
Open "e:\22\1.txt" For Input As #1
x = 12
Do While Not EOF(1)
Input #1, stra
Cells(x, 1) = stra
x = x + 3
Loop
Close #1
End Sub

Answer 2

直接复制粘贴到excel表里的某一列，比如复制到B列。
然后A12用公式=IF(MOD(ROW(),3)=0,INDIRECT("B"&ROW()/3-3),""),下拉复制到其它行。

Answer 3

试试复制后在EXCEL中粘贴，如格式不正确，请转换格式
数据格式为数值
用不着用VBA编写的

Answer 4

用以下代码试试：

Sub tty()
Dim FileName As String
Dim Textbook As String
Dim I As Integer
I = 1
FileName = "E:\22\1.txt" '可以改变你要输入的文件路径与名称
Open FileName For Input As #1
Do While Not EOF(1)
Line Input #1, Textbook
Cells((I - 1) * 3 + 12, 1) = Textbook
I = I + 1
Loop
Close
End Sub