[已解决]修改或重新写个宏

乐乐2006201506

需要将sheet2中B列从B2开始的数据（有多少个填多少个），填到晋档个人表 (2)中每个表（数据都不相同，现在是我把所有的数据删除了，所以是空表）姓名后边的单元格（B5，B26……）中。请大神帮忙。谢谢！

Sub 填数据()
'
    Selection.NumberFormatLocal = "G/通用格式"
    B5 = "=Sheet2!R[-3]C"
    With Range("A20:A" & Range("A636").End(3).Row)
        Set c = .Find("姓  名")
        If Not c Is Nothing Then
            firstAddress = c.Address
            Do
                Range("B5").Copy c
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> firstAddress
        End If
    End With
End Sub

最佳答案

月排行榜 / 总排行榜

grf1973

2016-4-7 11:40

Sub 填数据() '
    With Sheets("Sheet2")
        For i = 1 To [a65536].End(3).Row
            If Cells(i, 1) = "姓  名" Then
                n = n + 1
                Cells(i, 2) = .Cells(n + 1, 2)
                'Cells(i + 1, 4) = .Cells(n + 1, 3) '.......  工作时间
                '.......把sheet2的相关内容填到当前表中
                '...............
                i = i + 20         '尽量靠近下一表的起始位置
            End If
        Next
    End With
End Sub

跳转到最佳答案楼层

grf1973

Sub 填数据() '
    With Sheets("Sheet2")
        For i = 1 To [a65536].End(3).Row
            If Cells(i, 1) = "姓  名" Then
                n = n + 1
                Cells(i, 2) = .Cells(n + 1, 2)
                'Cells(i + 1, 4) = .Cells(n + 1, 3) '.......  工作时间
                '.......把sheet2的相关内容填到当前表中
                '...............
                i = i + 20         '尽量靠近下一表的起始位置
            End If
        Next
    End With
End Sub