在多个单元格中输入需要的文字

112ppp

我需要在A1：C3单元格中入录一些文字，我录了一段代码，现在是这样的，怎么写能更简化一些？Sub 宏4()
    Range("A1") = "员工姓名"
    Range("B1") = "岗位属性"
    Range("C1") = "备注"
    Range("B2") = "驾驶员"
    Range("C2") = "其他"
    Range("A3") = "合计"
End Sub

liyizhe000

range("A1:C1")=array("员工姓名","岗位属性","备注")
range("B2:C2")=array("驾驶员","其他")
range("A3")="合计"

112ppp

liyizhe000 发表于 2017-2-16 17:21
range("A1:C1")=array("员工姓名","岗位属性","备注")
range("B2:C2")=array("驾驶员","其他")
range("A3 ...

有没有写成一行的那种，现在这种也是三行。

爱疯

Sub 按钮1_Click()
[A1:C3] = [{"员工姓名","岗位属性","备注";"","驾驶员","其他";"合计","",""}]
End Sub


如果很多，不容易查看。
所以，不一定非要追求写在一起。

望帝春心

要写一行也行，用冒号

liyizhe000

学习！

112ppp

爱疯 发表于 2017-2-16 17:30
Sub 按钮1_Click()
[A1:C3] = [{"员工姓名","岗位属性","备注";"","驾驶员","其他";"合计","",""}]
End S ...

还有没有其他写法，我现在主要是在学习中，想多看一些关于文字录入的多种写法，找一种最简洁的。