>即時新聞-熱門

2011年5月18日星期三

EXCEL VBA合併刪除

Sub 合併()


Dim mymax

Range("B1").Select

mymax = Selection.End(xlDown).Row ' CTRL + 向下的方向鍵

Range("A1").Select





For i = 1 To mymax



If ActiveCell.Value <> Empty Then



ActiveCell.Offset(1, 0).Select



Else



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

Selection.EntireRow.Delete

End If







Next





End Sub



資料結構

編號 品名 數量1 數量2 數量3 日期

1 玩具 5 55 9 1月1日

衣服

股份



鞋子

玩具

衣服

2 股份 12 -169 632 1月8日



鞋子

玩具

3 鞋子 16 -297 988 1月12日

玩具

鞋子

玩具

鞋子

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱