请教各位大佬如何实现将数据导入

guqchen

是不是能通过index和match实现，刚开始学，有点笨倒不过来，请各位大佬赐教，谢谢。

3190496160

Sub 转置()
Application.ScreenUpdating = False
Dim ar As Variant
Dim i As Long, r As Long, rs As Long
Dim arr()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheets("数据源")
    rs = .Cells(Rows.Count, 1).End(xlUp).Row
    ar = .Range("a1:c" & rs)
End With
ReDim arr(1 To UBound(ar), 1 To UBound(ar))
k = 1: lh = 1
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" Then
        t = d(Trim(ar(i, 1)))
        If t = "" Then
            k = k + 1
             d(Trim(ar(i, 1))) = k
             t = k
             arr(k, 1) = ar(i, 1)
        End If
        y = d(Trim(ar(i, 3)))
        If y = "" Then
            lh = lh + 1
            d(Trim(ar(i, 3))) = lh
            y = lh
            arr(1, lh) = ar(i, 3)
        End If
       arr(t, y) = ar(i, 2)
    End If
Next i
With Sheets("求解")
    .[a1].CurrentRegion.Borders.LineStyle = 0
    .[a1].CurrentRegion = Empty
    .[a1].Resize(k, y) = arr
    .[a1].Resize(k, y).Borders.LineStyle = 1
End With
MsgBox "ok!"
End Sub

3190496160

求解导入数据.rar (19.2 KB, 下载次数: 4)

2022-5-19 08:12 上传

点击文件名下载附件

guqchen

3190496160 发表于 2022-5-19 08:12
Sub 转置()
Application.ScreenUpdating = False
Dim ar As Variant

谢谢大佬，就是对我等新手好像有点太复杂了谢谢了，研究下。

guqchen

3190496160 发表于 2022-5-19 08:12

谢谢大佬，下来看看是否适合我。

guqchen

另外问下，在数据源那，随着日期增加，数据也增多，这个转置的宏还有效的么？

mjjsum

数据透视表不能解决么？

guqchen

mjjsum 发表于 2022-5-19 11:47
数据透视表不能解决么？

请老哥赐教，不胜感激

大马峰

数据透视表，是否上班列不是数值，好像不行，用PQ透视列

臧礼莉

大马峰 发表于 2022-5-19 13:12
数据透视表，是否上班列不是数值，好像不行，用PQ透视列

PQ最合适使用