VBA每次将数据放入不同的单元格时，请执行此操作

我最近被给了一个Do While Loop来吐出一些数字，你可以在另外一个问题中看到我问，现在我的问题是我想把数据放在我从中获取数据的单元格旁边，所以我知道我从中获取数据的行的行号，但是因为有3个不同的可能的答案可能出来。 我需要在每个单元格中放入一个值，例如：A3，A4，A5

昏暗的SNs作为string

SNs = "Q" & xout Const SNLength As Integer = 5 Dim SerialNumber As String Dim index As Integer If Left(SNs, 1) = "Q" Then SNs = Mid(SNs, 2) index = 1 Do While index < Len(SNs) SerialNumber = Mid(SNs, index, SNLength) 'Code from user Worksheets("Calendar").Range("H" & Rng.Row).Activate ActiveCell.Offset(0, 0).Value = "Q" + SerialNumber ActiveCell.Offset(0, 1).Value = "Q" + SerialNumber ActiveCell.Offset(0, 2).Value = "Q" + SerialNumber index = index + SNLength ' I am using the string SerialNumber and it always will have a value of 3 strings in each loop, so I need to insert them each into cells on the right, your code does what in the sense of placing them in the right cells but not the right data, the data ends up like this: 

Q52587 Q52587 Q52587当msgbox中的数字完全不同且这是最后一个msgbox值时，所有相同的数字。

 Loop 

请有人可以帮我，这让我感到困惑:)

Answer 1

 dim i as integer Do While index < Len(SNs) SerialNumber = Mid(SNs, index, SNLength) MsgBox "Q" + SerialNumber index = index + SNLength ActiveCell.Offset(0, i).Value = "Q" + SerialNumber index = index + SNLength i=i+1 Loop