Question

用VBA 将表格中每个有数据的单元格提取一行数据出来，最后生成一个代码。如果一行有4，就换行。

Sub 生成()
Dim i As Long
Dim j As Long
Dim T As String
Dim Q As String
Dim V() As String
i = 1
j = 1
Sheets("Sheet1").Select
While (Len(Cells(i, j)) > 0)
For i = 1 To 100 Step 1
For j = 1 To 4 Step 1
S = Cells(i, j).Text
V = Split(S, Chr(10))
T = "111" & V(0) & & V(1) & "<222>" & V(2) & "<333>"
If j > 0 And j < 4 Then
Q = Q & T
Else
Q = Q & T & "</tr><tr>"
Sheet2.Cells(1, 1).Value = "AA" & Q & "ZZ"
End If
Next j
Next i
Wend
End Sub
哪边出错，请高手帮忙

Answer 1

既然是循环，该次循环只有一个值，你在循环里面还搞了V0,V1,V2,当然错了
V = Split(S, Chr(10))
T = "111" & V(0) & & V(1) & "<222>" & V(2) & "<333>"

追问

那该怎么改啊

追答

你要表达的意思有点乱，你是想做什么我看不出来

Answer 2

一步步执行，看到哪句提示错误，
另外，对于循环，如果结果出错，最好的就是单步执行，边执行边查看相应变量的值，这样才能发现错误。因为别人不知道你要做什么，所以单纯看代码，很难给你帮助