vba 如何向一列连续的单元格写入文本

ldflmh

比如向一行连续的单元格写入文件，可以这样实现：
Sub aaa()
Range("L20:N20") = [{"aa","bb","cc"}]
End Sub


但向一列写入这样是不行的：
Sub aaa()
Range("A1:A3") = [{"aa","bb","cc"}]
End Sub


可以这样实现但太麻烦了：
Sub aaa()
Range("A1") ="aa"
Range("A2") ="bb"
Range("A3") ="cc"
End Sub


简单点的写法应该是什么呢。。不会了。

mmwwdd

Range("A1:A3") = Application.Transpose([{"aa","bb","cc"}])

一把小刀闯天下

Sub aaa()
  Range("A1:A3") = [{"aa";"bb";"cc"}]
End Sub

零落0320

不知道是否这样可以
Sub text1()
    Dim arr, i As Long
    arr = Array("aa", "bb", "cc")   '此数组下标从0开始
    For i = 1 To UBound(arr) + 1
        Range("a" & i) = arr(i - 1) '从A1开始依次写入数组的值
    Next
End Sub

ldflmh

mmwwdd 发表于 2020-2-22 15:25
Range("A1:A3") = Application.Transpose([{"aa","bb","cc"}])

谢谢。会者不难啊。。

ldflmh

一把小刀闯天下 发表于 2020-2-22 15:34
Sub aaa()
  Range("A1:A3") = [{"aa";"bb";"cc"}]
End Sub

谢谢了，麻烦帮看看，这个可以继续用for 简化写法吗？

Sub asdf()
   
    For i = 2 To 10
        Cells(6, (i - 1) * 2) = 29
        If (Cells(6, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(6, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(6, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(7, (i - 1) * 2) = 27
        If (Cells(7, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(7, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(7, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(8, (i - 1) * 2) = 25
        If (Cells(8, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(8, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(8, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(9, (i - 1) * 2) = 23
        If (Cells(9, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(9, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(9, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(10, (i - 1) * 2) = 21
        If (Cells(10, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(10, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(10, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(11, (i - 1) * 2) = 11
        If (Cells(11, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(11, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(11, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(12, (i - 1) * 2) = 13
        If (Cells(12, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(12, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(12, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
    Next
End Sub

ldflmh

一把小刀闯天下 发表于 2020-2-22 15:34
Sub aaa()
  Range("A1:A3") = [{"aa";"bb";"cc"}]
End Sub

谢谢了，再帮看看，这个如何继续用for 简化，这个颜色对比应该可以写的，写不出来。。。


Sub asdf()
   
    For i = 2 To 10
        Cells(6, (i - 1) * 2) = 29
        If (Cells(6, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(6, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(6, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(7, (i - 1) * 2) = 27
        If (Cells(7, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(7, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(7, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(8, (i - 1) * 2) = 25
        If (Cells(8, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(8, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(8, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(9, (i - 1) * 2) = 23
        If (Cells(9, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(9, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(9, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(10, (i - 1) * 2) = 21
        If (Cells(10, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(10, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(10, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(11, (i - 1) * 2) = 11
        If (Cells(11, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(11, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(11, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
        Cells(12, (i - 1) * 2) = 13
        If (Cells(12, (i - 1) * 2) > Cells(3, (i - 1) * 2)) Then
            Cells(12, (i - 1) * 2).Font.Color = RGB(255, 0, 0)
        Else
            Cells(12, (i - 1) * 2).Font.Color = RGB(0, 255, 0)
        End If
        
    Next
End Sub

一把小刀闯天下

ldflmh 发表于 2020-2-22 16:47
谢谢了，麻烦帮看看，这个可以继续用for 简化写法吗？

Sub asdf()

应该可以，上附件，然后作一下简单说明，最好有图示

重写比修改别人的代码大多数时候要快得多，，，

ldflmh

一把小刀闯天下 发表于 2020-2-22 16:54
应该可以，上附件，然后作一下简单说明，最好有图示

重写比修改别人的代码大多数时候要快得多，，，

附件在我新发的帖子里了