Question

excel宏中写循环语句

单元格A1输入一个数字，单元格B1内容为“BB”（并非固定不变），如何写一个宏循环语句，使得数字与单元格B1相连接，连接的格式为（如A1输入为20）001BB,002BB---020BB,且从C1单元格依次往下显示。
求大神指点

Answer 1

Sub MyBb()

Dim i As Integer

For i = 1 To Sheet1.Cells(1, 1)

    Sheet1.Cells(i, 3) = Application.WorksheetFunction.Text(i, "000") & Sheet1.Cells(1, 2)

Next i

End Sub

Answer 2

您好，这个可以不用循环（仅一行代码）来实现：

Sub Demo1()
    Range("$C$1:$C$20").Formula = "=CONCATENATE(TEXT(ROW(),""000""),$B$1)"
End Sub

Sub Demo2()
    Range("$C$1:$C$20").FormulaR1C1 = "=CONCATENATE(TEXT(ROW(),""000""),R1C2)"
End Sub

 

PS：运行 Demo1 或 Demo2 都可实现你要的效果！

Answer 3

for i = 1 to cells(1,1).value
cells(1,i+2)=right("000" & cstr(i),3) & cells(1,2)
next

Answer 4

sub xx()
dim n%,i%
n=cells(1,1)
for i=1 to n
cells(i,3)=right((1000+i) & cells(1,2),5)
next i
end sub