VBA解决数字自动填充问题

extyg

Sub myFill()
    Dim rngTitle As Range, rng As Range
    Dim intCol1 As Integer, intCol2 As Integer
    Worksheets("明细").Select
    Set rngTitle = Range("a2:hm2")
    For Each rng In Range("hp3:hp" & [hp65536].End(xlUp).Row)
        With rng
            If .Value = 1 Then
                With Application.WorksheetFunction
                    intCol1 = .Match(rng.Offset(0, -2), rngTitle, 0)
                    intCol2 = .Match(rng.Offset(0, -1), rngTitle, 0)
                End With
                Range(Cells(.Row, intCol1), Cells(.Row, intCol2)) = .Offset(0, 1)
            End If
        End With
    Next
End Sub

ruanjianhong

对了，就是这个意思，谢谢朋友！

ningyuanchao

　Dim i, j, iCol1, iCol2 As Long, SDate, EDate As Date
    For i = 3 To Range("A65536").End(xlUp).Row
        SDate = Range("HN" & i)
        EDate = Range("HO" & i)
        If Range("HP" & i) = 1 Then
            For j = 8 To 221
                If Cells(2, j) = SDate Then iCol1 = j
                If Cells(2, j) = EDate Then iCol2 = j: Exit For
            Next j
            Range(Cells(i, iCol1), Cells(i, iCol2)) = Range("HQ" & i)
        End If
    Next i

guzhen9315

哈哈，已经解决了，好！

（不好意思，昨天朋友来电话，喝茶去了。）