Re: [發案] 需要一個軟體 按鍵精靈也做得來

[minejel (活著看歷史)]

excel 內新增一個巨集按鈕
'下面是程式碼,功能就是簡單地把兩行轉成一行


Dim o_sheet '原本資料的工作表名稱
Dim n_sheet '整合後的資料表名稱
Dim s_range '資料的左上起始位置 ex:A1
Dim e_range '資料的右下結束位置 ex:B6
Dim count '計數

Sub 按鈕1_Click()
    o_sheet = "工作表1"
    s_range = "A1"
    e_range = "B6"
    count = 0
        Sheets.Add After:=Sheets(Sheets.count)
        Sheets(Sheets.count).Select
        n_sheet = Sheets(Sheets.count).Name
    If Mid(s_range, 1, 1) <> Mid(e_range, 1, 1) Then
       If Mid(s_range, 2) <= Mid(e_range, 2) Then
            For i = Mid(s_range, 2) To Mid(e_range, 2)
                 count = count + 1
                 Sheets(o_sheet).Select
                 Range(Mid(s_range, 1, 1) & i).Select
                 Selection.Copy
                 Sheets(n_sheet).Select
                 Range("A" & count).Select
                 ActiveSheet.Paste
                 '判斷e_range的資料,複製貼入下一行
                    If Mid(s_range, 2) <= Mid(e_range, 2) Then
                        count = count + 1
                        Sheets(o_sheet).Select
                        Range(Mid(e_range, 1, 1) & i).Select
                        Selection.Copy
                        Sheets(n_sheet).Select
                        Range("A" & count).Select
                        ActiveSheet.Paste
                    End If
             Next
        End If
    End If
    '把結果複製到剪貼簿
      Sheets(n_sheet).Select
      Range("A1:A" & count).Select
      Selection.Copy
End Sub

要更改的地方只有
    o_sheet = "工作表1"  <--你資料的工作表名稱
    s_range = "A1"       <--起始
    e_range = "B6"       <--結束

--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 1.170.135.10
※ 編輯: minejel         來自: 1.170.135.10         (11/21 00:55)
※ 編輯: minejel         來自: 1.170.135.10         (11/21 00:55)
推 phi12345:推~專業!!!