非常好的VBA编程问答

wozhitianxia666 · 发表于 2011-8-5 13:20

好东西，先收藏了

linleiting · 发表于 2011-9-25 15:35

收藏了，要好好学习一下

x999p · 发表于 2011-9-25 22:50

好多的，慢慢学习。

元逸 · 发表于 2011-11-2 23:21

如何删除不同的单元格中相同文本？请高手指点！
我运行下面的代码可以删除数字文本，但对文字加数字的文本就不起作用了。
  Sub RemoveDupes()
  Dim TempRow As Long, bLastRow As Long, DestRng As Range
With Sheets("公共")
bLastRow = WorksheetFunction.CountA(Sheets("公共").Range(Cells(1, 1), Cells(176, 1)))
For TempRow = bLastRow To 2 Step -1
      '在 A列中从 A1单元格向下查找
      Set DestRng = .Range(.Cells(1, 1), .Cells(bLastRow, 2)).Find(what:=.Cells(TempRow, 2).Value, after:=.Cells(1, 1), LookIn:=xlValues, lookat:=xlWhole)
      If DestRng.Row <> TempRow Then  '如果找到的记录不是自身
         .Rows(TempRow).Delete    '则删除该行
      End If
Next TempRow
End With
End Sub
请指教，谢谢！

女人如梦 · 发表于 2011-12-5 20:09

感谢汇总的朋友提供下载！

jsnjtsglx · 发表于 2011-12-28 07:30

太好了，收藏了。谢谢！

Iam辉 · 发表于 2011-12-30 09:29

楼主也好，原作者也好，都是好人。简明实用，非常感谢

槐花花 · 发表于 2012-1-5 20:52

太感谢了！
世界上真有好人啊！！

wh1272 · 发表于 2012-1-6 06:43

非常适用，有许多都是需要的东西!

wh1272 · 发表于 2012-1-6 06:47

谢谢整理，非常方便！

		自动登录	找回密码
密码			免费注册

[分享] 非常好的VBA编程问答