嘿，我来帮你理清这里的问题～你遇到的所有单元格都显示5的情况，核心原因是嵌套循环的逻辑错了，咱们一步步拆解：

错误原因分析 #

你写的外层循环是遍历行号（i从5到10，共6行），内层循环遍历数组的每个元素（j从0到4，共5个值）。这意味着：

• 每一行的单元格（比如A5）都会被数组的5个元素依次赋值一遍：先放1，再改成2，接着3、4，最后改成5
• 所以不管是A5到A10的哪个单元格，最后一次赋值都是数组的最后一个元素5，自然所有单元格都显示5啦

修正方案1：调整循环逻辑（一对一赋值） #

既然数组有5个元素，我们只需要把每个元素对应到一行单元格就行，不需要嵌套循环。用单个循环关联数组索引和行号：

Sub test()
    Dim i As Integer
    Dim tabtest(4) As Integer
    
    tabtest(0) = 1
    tabtest(1) = 2
    tabtest(2) = 3
    tabtest(3) = 4
    tabtest(4) = 5
    
    ' 数组索引0对应行5，索引1对应行6，以此类推
    For i = 0 To 4
        Sheets("Câbles").Range("A" & (5 + i)).Value = tabtest(i)
    Next i
End Sub

这样每个数组元素只会被赋值到对应的单元格一次，就不会有覆盖问题了。

修正方案2：直接批量赋值（更高效） #

VBA里其实支持直接把数组批量赋值给单元格区域，不用写循环，代码更简洁高效：

Sub test()
    Dim tabtest(4) As Integer
    
    tabtest(0) = 1
    tabtest(1) = 2
    tabtest(2) = 3
    tabtest(3) = 4
    tabtest(4) = 5
    
    ' 一维数组默认是横向的，用Transpose转成纵向匹配单元格
    Sheets("Câbles").Range("A5:A9").Value = Application.Transpose(tabtest)
End Sub

这里用Application.Transpose把横向的一维数组转成纵向，刚好匹配A5到A9的5个单元格。

总结思路 #

当你需要把数组元素一一对应到单元格时，核心是每个元素只赋值给目标单元格一次：

• 避免多余的嵌套循环，否则会出现重复覆盖
• 对于连续的单元格区域，直接批量赋值是最优选择，既减少代码量又提升运行效率

内容的提问来源于stack exchange，提问作者LyessD