求教，如何实现每循环一次字符串后面的数字自动+1

星河中的一粒沙

k = lnas0001
for i = 1 to 100Cells(i, "A").Value = k

k=k+1
next i

我这个程序肯定实现不了，但是就是这个意思，怎么才能实现啊,求教

星河中的一粒沙

另外如果K是个全局变量，比如说有3个工作簿，工作簿1共100行，K完成工作簿1的循环后变成了lnan0100,然后工作簿2还有100行，工作簿2需要从lnas0101开始，怎么能实现啊

yuwd3

For i = 1 To 100
Cells(i, "A").Value = "lnas" & Format(i, "0000")
k = k + 1
Next i

maditate

Sub test()



k = "lnas"
For i = 1 To 100
a = Format(i, "000")

Cells(i, "A").Value = k & a

Next i

End Sub

星河中的一粒沙

yuwd3 发表于 2019-11-30 20:48
For i = 1 To 100
Cells(i, "A").Value = "lnas" & Format(i, "0000")
k = k + 1

好像不行啊，K是个字符串变量

星河中的一粒沙

星河中的一粒沙 发表于 2019-11-30 20:53
好像不行啊，K是个字符串变量

改成K=0001貌似就行了，多谢啊