作者minejel (活著看歷史)
看板CodeJob
標題Re: [發案] 需要一個軟體 按鍵精靈也做得來
時間Mon Nov 21 00:54:34 2011
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)
1F：推 phi12345:推~專業!!! 11/21 03:43