Excel 2010将字符串写入单元格[重复]

Question

我会给出一个完整的描述，但是两年前这个问题中已经说过所有相关的内容，但完全没有解决：

Writing a string to a cell in excel

我的程序尽可能简单：

`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 中的一个错误，我现在想要的只是一种解决方法。

Answer 1

您的代码中有错误。

对于i = 0，即循环的第一次迭代，下面的代码会报错：

... .Cells(i, 1) ...
... .Cells(i, 2) ...

因为 没有第 0 行。将其更改为：

... .Cells(i + 1, 1) ...
... .Cells(i + 1, 2) ...

它会起作用的。不确定它是否正是你想要的，但至少它不会出错。