excel宏选择性填充怎么做

发布网友发布时间：2022-04-29 06:31

共3个回答

热心网友时间：2022-06-20 16:49

Sub AAA()
    Dim I   As Long
    Dim J   As Long
    J = 2               '被填充的单元格开始行
    For I = 2 To 6      '数据源
        Range("D" & J) = Range("L" & I)
        J = J + 6       '被填充的单元格间隔 6 行。
    Next
End Sub

追问弱弱的问下一共180个怎么结束
谢谢

追答180 个，你就修改 for i=2 to 181 就可以了。表示从 L2 - L181

热心网友时间：2022-06-20 16:49

不用宏。用公式要简单一点
D2公式
=if(mod(row(),6)=2,index(L:L,int((row()+4)/6)+1),"")
下拉复制公式

热心网友时间：2022-06-20 16:50

Sub Macro1()

Dim i As Integer

Dim j As Integer

Dim k As Integer

j = InputBox("输入原数据最后行的行号：")

k = 2

For i = 2 To j

Cells(k, 2) = Cells(i, 12)

k = k + 6

Next

End Sub

excel宏 选择性填充怎么做

excel宏选择性填充怎么做