Excel 2010 将字符串写入单元格[重复]
题
我会给出完整的描述,但两年前这个问题中已经说过所有相关内容,但完全没有解决:
我的程序尽可能简单:
`Sub separate()
Dim stri As String
Dim i As Long
stri = Sheets("HEXDUMP").Cells(1, 5).Text
For i = 0 To (Len(stri) / 4)
Sheets("HEXDUMP").Cells(i, 1).Value = Mid(stri, ((i * 2) + 1), 2)
Sheets("HEXDUMP").Cells(i, 2).Value = Mid(stri, ((i * 2) + 3), 2)
Next i
End Sub`
我想要的只是获取一个字符串并将其分解为每个包含两个字符的单元格。当然,一切都很完美,只是无论您对它做什么,它都不会写入单元格。我尝试取消保护我尝试过.text我尝试制作一个新工作表重新启动你的名字。这是 Excel 中的一个错误,此时我想要的只是一个解决方法。
解决方案
您的代码中有错误。
为了 i = 0
, , IE。循环的第一次迭代时,以下代码将给出错误:
... .Cells(i, 1) ...
... .Cells(i, 2) ...
作为 没有第 0 行. 。将其更改为:
... .Cells(i + 1, 1) ...
... .Cells(i + 1, 2) ...
它会起作用的。不确定这是否正是你想要的,但至少不会报错。
不隶属于 StackOverflow