给单元格赋值出错。

FXZ2015

准备向"B1,B2,C2,D2,E2,B9,G1,G2,I2,K2,H2,j2,l2,B10"单元格内赋值"年龄性别统计表", "年龄段", "合计", "男", "女", "合计", "类别统计表", "类别", "类别", "类别", "人数", "人数", "人数", "户别统计表"
运行以下代码后，向所有单元格赋值了第一个值，即"年龄性别统计表"。
请各位老师帮忙，是哪出错了。

sub 赋值
Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("统计表") '假设数据在Sheet1上

    Dim rng As Range   ' 定义变量

    Set rng = _
        ws.Range("B1,B2,C2,D2,E2,B9,G1,G2,I2,K2,H2,j2,l2,B10")

    rng.Value = _
        Array("年龄性别统计表", "年龄段", "合计", "男", "女", "合计", "类别统计表", "类别", "类别", "类别", "人数", "人数", "人数", "户别统计表")

end sub

ynzsvt

不连续的单元格区域不能赋值数组的，只能是逐一单元格的赋值。

ynzsvt

1. Sub 赋值()
   
2. Dim Ws As Worksheet
   
3. Set Ws = ThisWorkbook.Sheets("统计表") '假设数据在Sheet1上
   
4. 
   
5. Dim Rng As Range, Rng1 As Range, Arr, i&  ' 定义变量
   
6. 
   
7. Set Rng = _
   
8.    Ws.Range("B1,B2,C2,D2,E2,B9,G1,G2,I2,K2,H2,j2,l2,B10")
   
9. 
   
10. Arr = Array("年龄性别统计表", "年龄段", "合计", "男", "女", "合计", "类别统计表", "类别", "类别", "类别", "人数", "人数", "人数", "户别统计表")
    
11. 
    
12. i = 0
    
13. For Each Rng1 In Rng
    
14.   Rng1 = Arr(i): i = i + 1
    
15. Next
    
16. End Sub

复制代码

FXZ2015

ynzsvt 发表于 2024-8-18 15:24

谢谢老师帮忙。

liulang0808

Sub 赋值()
Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("统计表")


    arr = Split("B1,B2,C2,D2,E2,B9,G1,G2,I2,K2,H2,j2,l2,B10", ",")

    brr = Array("年龄性别统计表", "年龄段", "合计", "男", "女", "合计", "类别统计表", "类别", "类别", "类别", "人数", "人数", "人数", "户别统计表")
    For j = LBound(arr) To UBound(arr)
        ws.Range(arr(j)) = brr(j)
    Next j
End Sub

也可以这样变通