Power Query之M函数各参数详解（Record类）

tony@cq

Record类主要函数整理完毕，恳请大家指正。

624134745

先支持点赞，再学习

消灭零公里

先支持点赞，然后下载（不一定学习）

123-456789

感谢tony@cq大神的分享，学习了！！！

肥皂里的天堂

点赞，下载，支持，并学习

limonet

谢谢。最近在学VBA，就把楼主的文件合成了一个表，借花献佛。

tony@cq

limonet 发表于 2021-8-27 23:12
谢谢。最近在学VBA，就把楼主的文件合成了一个表，借花献佛。

感谢您的佛！若把佛的真经（代码）也一同附上就更好了。

limonet

tony@cq 发表于 2021-8-28 09:05
感谢您的佛！若把佛的真经（代码）也一同附上就更好了。

献丑了，把目录改成个人电脑的目录。
Sub 多簿多表转置合一()
    Application.ScreenUpdating = False
    Dim FileName As String, DataWb As Workbook, DataSht As Worksheet, EndRow As Long, DataArr As Variant
    Dim ToSht As Worksheet, ToRng As Range, i As Byte
    FileName = Dir("C:\Users\Limonet\OneDrive\桌面\M函数各参数详解（Record类）\*.xlsx")
    Do While FileName <> ""
        i = i + 1
        Range("A" & i + 1).Value = Mid(Replace(FileName, ".xlsx", ""), 5, 3) 'Replace此处是多余的
        Workbooks.Open FileName:="C:\Users\Limonet\OneDrive\桌面\M函数各参数详解（Record类）\" & FileName
        Set DataWb = ActiveWorkbook
        For Each DataSht In Worksheets
            EndRow = DataSht.Range("A1048576").End(xlUp).Row
            DataArr = DataSht.Range("A1:A" & EndRow).Value
            Set ToSht = ThisWorkbook.Worksheets(1)
            Set ToRng = ToSht.Range("B1048576").End(xlUp).Offset(1, 0)
            ToRng.Resize(1, UBound(DataArr, 1)).Value = Application.Transpose(DataArr)
        Next DataSht
    DataWb.Close savechanges:=False
    FileName = Dir
    Loop
    Application.ScreenUpdating = True
End Sub

vicky9891

来学习的

qmf

感谢大侠分享，立即收藏学习！