如何按要求分布到指定的单元格

fangseng

各位前辈，有什么办法用VBA把文字按要求分布到指定的单元格，谢谢！

3190496160

Sub test()
Set d = CreateObject("scripting.dictionary")
Dim s As Date
With Sheet1
    ws = .Cells(Rows.Count, 1).End(xlUp).Row
    .Range("f3:cs" & ws) = Empty
    ar = .Range("a2:cs" & ws)
    For i = 2 To UBound(ar)
        For s = ar(i, 3) To ar(i, 4)
            For j = 6 To UBound(ar, 2)
                If s = ar(1, j) Then
                    ar(i, j) = ar(i, 5)
                End If
            Next j
        Next s
    Next i
    .Range("a2:cs" & ws) = ar
End With
End Sub

3190496160

Book1.rar (32.07 KB, 下载次数: 2)

2020-3-1 23:12 上传

点击文件名下载附件