請問如何使用Excel VBA合併儲存格

小弟想要寫一個新增按鈕,
能夠在點選時插入內容,並且把插入位置的前一格至前一資料格合併

如圖
http://i.imgur.com/QnJG8lz.jpg

在新增資料同時處理上面的儲存格
http://i.imgur.com/yXSI7vc.jpg

自己有寫合併的巨集,但如果連續輸入首兩筆資料
就會把頂端列的「日期」與「時間」合併進去
不知道該怎麼寫判定方式...

Private Sub CommandButton69_Click()
'新增

If Range("C2") = "" Then
r = 2
Else
r = Range("C1").End(xlDown).Row + 1
End If
'新增日期
Cells(r, "A") = Me.TextBox1.Text
'選取日期上一欄位
Cells(r - 1, "A").Select
'選取上一欄位至前一資料處
Range(Selection, Selection.End(xlUp)).Select
'合併儲存格
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge


'合併儲存格結束

If Range("C2") = "" Then
r = 2
Else
r = Range("C1").End(xlDown).Row + 1
End If
Cells(r, "B") = Me.TextBox2.Text
Cells(r - 1, "B").Select
Range(Selection, Selection.End(xlUp)).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge




End Sub


這兩天才上網在看影片學VBA,麻煩大家解惑了
想幫忙,但看不太懂問題,請修改一下問題
或增加分解動作的圖片
文章分享
評分
複製連結
bluekai