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日
玩具
鞋子
玩具
鞋子
>即時新聞-熱門
2011年5月18日星期三
EXCEL VBA合併刪除
发帖者 ALEX 时间: 17:39
订阅:
博文评论 (Atom)
0 评论:
发表评论