VBA代码学习for循环

最新推荐文章于 2024-05-06 00:56:47 发布

彼岸金桥

最新推荐文章于 2024-05-06 00:56:47 发布

阅读量2.4k

点赞数

本文链接：https://blog.csdn.net/weixin_42471235/article/details/116543238

版权

这个博客展示了几个VBA子程序，用于在Excel中填充特定序列的数值。`输入奇数`和`输入3的倍数`子程序分别填充了1到100之间的奇数和3的倍数到指定列。`提取工资表名称`子程序则列举了工作簿中的所有工作表名称。此外，`输入100`和`输入100B`两个子程序演示了如何快速填充1到100的序列到单元格中。

摘要由CSDN通过智能技术生成

Option Explicit
Sub 输入奇数()
    Dim i As Byte, a As Byte
   
    For i = 1 To 100 Step 2
    a = a + 1
    Range("I" & a).Value = i
    
   
    Next i
End Sub
Application.Cells


Sub 输入3的倍数()
    Dim i As Byte, xrow As Byte
    For i = 3 To 100 Step 3
    xrow = xrow + 1
    Cells(xrow, "J").Value = i
    Next i
End Sub
 
Sub 输入3的倍数2()
    Dim i%, xrow%
    xrow = 1
    For i = 1 To 100 Step 1
    
    If i Mod 3 = 0 Then
    Cells(xrow, "H").Value = i
    xrow = xrow + 1 '这各xrow变量必须放在if循环里，否则不符合的条件也会增加1，最后导致隔3行才填入1个数据。
    End If
    
    Next i
    
End Sub

Sub 提取工资表名称()
    Dim sht As Worksheet, i As Integer '将sht声明为worksheet变量集合
    i = 1
    For Each sht In Worksheets      'worksheets为worksheet中集合体
    Cells(i, "k").Value = sht.Name 'sht.name是worksheet变量里的集合名称
    i = i + 1
    Next sht
End Sub

Sub 输入100()
    Dim arr(1 To 100) As Variant, i%
    i = 1
    For Each arr(1) In arr
    arr(i) = i
    Range("L" & i).Value = i
    i = i + 1
    Next arr
    
End Sub

Sub 输入100B()
    Dim c As Range, i%
    i = 1
    For Each c In Range("M1:M100")
    c.Value = i
    i = i + 1
    Next
End Sub