VB中怎样用一条语句向Excel连续单元格输入不同文字

ExSheet.Cells(1, 1) = "语文"
ExSheet.Cells(1, 2) = "数学"
ExSheet.Cells(1, 3) = "英语"
请问能将它们合并为一条复制语句吗?
在网上看到:
ExSheet.Range("A1:C1").Value = Array("语文", "数学", "英语")
但VB2012运行不正确,感觉问题出在Array("语文", "数学", "英语")上,哪位高手帮我看一下,献上全部财富值5,谢谢!
最新回答
夜见树

2025-06-27 08:47:49

试试这句:
ExSheet.Range("A1:C1")= Array("语文", "数学", "英语")

或者

ExSheet.Range("A1:C1")=Split("语文 数学 英语"," ")
追问
我试了
ExSheet.Range("A1:C1")=Split("语文 数学 英语")
横向可以成功赋值,但换成
ExSheet.Range("A1:A3")=Split("语文 数学 英语")
竖向就不能赋值了,A1:A3全部为 语文 ,请问是怎么回事啊?
追答
竖向显然不能!
因为数组是有方向的

试试这个
ExSheet.Range("A1:A3")=Worksheetfunction.transpose(Split("语文 数学 英语"))
追问
输进去不正确,提示Worksheetfunction未声明,麻烦帮我解答下。