Question

excel 用VBA 能实现 批量填入 指定个数的 文字【比如 我要填 10个 是 在A1：A10 单元格内】谢谢

Answer 1

Sub 宏1()

'批量输入

Dim str As String

str = Application.InputBox("输入内容")

    Range("A1").Select

    ActiveCell.FormulaR1C1 = str

    Selection.AutoFill Destination:=Range("A1:A18"), Type:=xlFillCopy

    Range("A1:A18").Select

    Range("B14").Select

    ActiveWorkbook.Save

End Sub

效果：

追问

如果加上循环呢？比如 我要输入 5个 我 在A1：A5，还要输入 8 个 你 在 A6：A13 就这样 有条件的循环 能否实现？谢谢

Answer 2

可以的，，，

追问

怎么做？谢谢

追答

Sub test()
[a1:a10] = "是"
End Sub

追问

没有懂 能否给个完整的代码？谢谢

追答

这个就是完整代码，[a1:a10] 可以换成 range("a1:a10") 这样的，你试一下就知道效果了，
这个不用循环的，楼上那回答是录制的宏吧，乱七八糟的！

追问

我要达到的效果是这个！