修法布施得聰明智慧，多分享讓生活更美好。上次我們介紹了如何快速批量刪除考勤記錄表中的重復時間，在這篇文章中，我們將分享如何快速批量把考勤記錄表轉成三列表（日期、姓名以及打卡時間）的處理方法。 步驟1：

修法布施得聰明智慧，多分享讓生活更美好。上次我們介紹了如何快速批量刪除考勤記錄表中的重復時間，在這篇文章中，我們將分享如何快速批量把考勤記錄表轉成三列表（日期、姓名以及打卡時間）的處理方法。

步驟1：準備工作

首先打開Microsoft Office Excel 2007，并另存為文件名《Excel怎樣快速批量把考勤記錄表轉成三列表.xlsm》。接下來，按下快捷鍵ALT F11打開VBE（宏）編輯界面，在菜單欄【插入】下拉菜單中選擇【模塊（M）】。

步驟2：插入代碼

在VBE編輯界面中插入一個新模塊，在代碼框中復制以下代碼：

```vba

Sub 選考勤表轉表()

Dim myr As Range, i As Long, j As Long, r As Long, c As Long, mb(), k As Long

Set myr Selection

r

c

ReDim mb(1 To c * (r - 1) / 2, 1 To 3)

For i 3 To r Step 2

For j 1 To c

k k 1

mb(k, 1) myr.Cells(1, j).Value

mb(k, 2) myr.Cells(i - 1, 1).Value

mb(k, 3) myr.Cells(i, j).Value

Next j

Next i

Worksheets("Sheet2").Range("A3").Resize(k, 3) mb

MsgBox "完成！"

End Sub

```

步驟3：運行宏

回到工作表窗口，選擇考勤記錄表單元格區(qū)域（從日期行至最后一個時間記錄行）。然后運行【選考勤表轉表】宏，方法是在菜單欄中選擇【視圖】，找到【宏】，在宏對話框中選中該宏名，然后執(zhí)行。結果將會輸出到Sheet2工作表中。

如果以上方法幫助到您，請不要吝嗇您的支持！您可以點擊“投票點贊”或者“收藏”以表示對我們的認可。如果您還有任何疑問，請點擊“我有疑問”，我們將竭誠為您解答。感謝您的閱讀與支持！