Question

VB 填充EXCEL表格时出问题，求大神帮忙解决

Sub 评定等级()
Dim i As Integer
Dim j As Integer
Dim x As String
Dim y As String
Dim z As String

For i = 0 To 11

For j = 1 To 11
y = Str(i)
z = Str(j)
x = y & z
x = x.Insert(y.Length, ",") 这里提示y为无效限定符
Sheets(1).Cells(i * 11 + j, 1) = x
Next
Next
End Sub

Answer 1

这是VBA不是VB吧，y.length改成len(y)。还有insert是range对象的方法，不能对string的x用

追问

x.Insert(Len(y), ",") 这样的话，提示x为无效限定符了

追答

上面写了，x是string