Sub Macro1()
ActiveCell.FormulaR1C1 = "text1"
Range("A2").Select
ActiveCell.FormulaR1C1 = "text2"
Range("A1:A2").Select
Selection.AutoFill Destination:=Range("A1:A20"), Type:=xlFillDefault
Range("A1:A20").Select
End Sub
for i=1 to 20
cells(i,1)="text" & i
next i
晕
用VB操作EXCEL都会了,些个循环向每个单元格写数据不就OK了吗