隔行填充

莫然123

请帮忙看一下，可不可以进行隔行填充内容啊，谢谢

hcm19522

B1=IF((MOD(ROW(A1),2)=0)+(MOD(COLUMN(A1),2)=0),"",OFFSET($K$1,INT(ROW(A1)/2),INT(COLUMN(B1)/2)))

leepoison

Sub FillValues()
    Dim srcRange As Range
    Dim destCells As Variant
    Dim lastRow As Long
    Dim i As Integer
    Dim j As Integer

    lastRow = ThisWorkbook.Sheets("Sheet1").Cells(Rows.Count, "L").End(xlUp).Row
     destCells = Array("B", "D", "F", "H", "J")
    For i = 2 To lastRow
        Set srcRange = ThisWorkbook.Sheets("Sheet1").Range("L" & i & ":P" & i)
        For j = 1 To srcRange.Columns.Count
            ThisWorkbook.Sheets("Sheet1").Range(destCells(j - 1) & (2 * i - 1)).Value = srcRange.Cells(1, j).Value
        Next j
    Next i

End Sub

jy03342543

。。。。。。

jy03342543

用VBA练练手做了一个

莫然123

jy03342543 发表于 2023-7-17 15:49
用VBA练练手做了一个

能说一下步骤吗

橒♂蝣

=OFFSET($K1,ROW(A1)-1,MOD(COLUMN(A2),2)*INT(COLUMN(B2)/2))

alan57

1. =IFNA(DROP(REDUCE(0,L1:L6,LAMBDA(x,y,VSTACK(x,OFFSET(y,,,,5),""))),1),"")

复制代码