|
楼主 |
发表于 2012-7-22 21:27
|
显示全部楼层
fv022011 发表于 2012-7-19 18:25
学习了,后续问题帮忙解决一下吧 - Sub 增加()
- A = MsgBox("确认添加?你想好了吗,别迷迷糊糊的!", vbYesNo, "确认增加")
- Dim r&, lr&
- If A = vbYes Then
- r = [a1].CurrentRegion.Rows.Count - 1
- With Sheets("数据表格")
- lr = .Cells(Rows.Count, 1).End(3).Row + 1
- [a2].Resize(r).Copy .Cells(lr, 1)
- [b2].Resize(r).Copy .Cells(lr, 13)
- [c2].Resize(r).Copy .Cells(lr, 14)
- [d2].Resize(r).Copy .Cells(lr, 2)
- End With
- End If
- End Sub
- Sub 减少()
- B = MsgBox("确认添加?你想好了吗,别迷迷糊糊的!", vbYesNo, "确认减少")
- Dim arr, i&, c As Range, rng As Range
- arr = Range("A1").CurrentRegion
- If B = vbYes Then
- With Sheets("数据表格").Range("a:a")
- For i = 2 To UBound(arr)
- Set c = .Find(arr(i, 1), , , 1)
- If Not c Is Nothing Then
- m = m + 1
- If m = 1 Then Set rng = c Else Set rng = Union(rng, c)
- End If
- Next
- End With
- If m Then rng.EntireRow.Delete
- End If
- End Sub
复制代码 |
|