国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

Sub ColloctColumn()

    Dim wk As Workbook           '目標文件

    Dim ws As Worksheet          '目標文件中的目標worksheet

    Dim ThisWs As Worksheet      '當前文件

    Dim ThisAllSheets As Integer '當前文件中worksheet的總和

    Dim ThisColCount As Integer  '當前文件的總列數

    Application.ScreenUpdating = False

    ThisAllSheets = ThisWorkbook.Sheets.Count

    Set wk = Application.Workbooks.Open(ThisWorkbook.Path & "/導入.xls")   '打開一個Excel文件

    Set ws = wk.Worksheets(1)           '打開的workbook中的第一個worksheet

    For i = 1 To 30 Step 1   '循環(huán)worksheet

        Set ThisWs = ThisWorkbook.Worksheets(1)

        ThisColCount = ThisWs.UsedRange.Columns.Count

        ws.Cells(i, 1) = ThisWs.Name                '將第一列第i行的單元格賦值為當前worksheet的sheet name.

        For j = 1 To ThisColCount Step 1            '循環(huán)columns

            ws.Cells(i, j + 1) = ThisWs.Cells(1, j) '將當前worksheet的第一行第j列單元格的值賦值給ws 的第j+1行第i列（這里類似轉置）

        Next j

    Next i

    wk.Close

    Application.ScreenUpdating = True

End Sub