合併與刪除

資料內容如下

十一   消防工程


a          滅火器

1         ABC乾粉滅火器，10型滅火效能A-3.B-

2         ABC乾粉滅火器，20型滅火效能A-5.B-

          30.C

3         ABC乾粉滅火器，50型滅火效能A-8.B-

          30.C

b         室內消防栓箱及採水系統

1         消防泵，額定馬力50HP以下,水量

           1680LPM以上,揚程70M以上

           採水泵，額定馬力50HP以下,水量

           2200LPM以上,揚程56M以上


程式如下


Sub 合併與刪除()


Dim i, j

Dim myrng As Range

Set myrng = Sheets(1).UsedRange

j = myrng.Rows.Count



Range("A1").Select



MsgBox j

For i = 1 To j



If ActiveCell.Offset(1, 0).Value = Empty Then

ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 1).Value & ActiveCell.Offset(1, 1).Value

ActiveCell.Offset(1, 0).Select

Selection.EntireRow.Delete



Else

ActiveCell.Offset(1, 0).Select





End If





Next



Range("A1").Select



End Sub