VBA常用技巧代码解析

janezh

谢谢老师，您辛苦啦！！！！
受益匪浅！！！

jxnccjx

认真学习，全下了

wang821219

你的工作是艰苦的，再一次表示感谢。

ilovesctoo

佩服的五体投地，在此强烈鄙视1731楼，你小子去找找看楼主是从那本书上抄来的，

yangAAA

谢谢楼主，我将努力学习，没有基础不知是否能够学会？

ah007

好哇，真诚的感谢楼主的无私奉献，感谢你的共享。谢谢

zengfuliang

谢谢分享 很需要

zengfuliang

谢谢斑竹 辛苦了

hyz00001

这个世界竟然有这样好的东西。
我得带回火星去。

gongliang

前两行的删是要选中单元格删,第三行是整行删,怎么写可以让它只删单元格并且下面向上提单元格呀

Excs.Rows(str).Select

        Selection.Delete Shift:=xlUp   

'      nTab.Cells(y, 1).EntireRow.Delete
x = ActiveCell.Row

y = x + 1

Do While nTab.Cells(x, 1).Value <> ""

z = 0

Do While nTab.Cells(y, 1).Value <> ""

   If (nTab.Cells(x, 1) = nTab.Cells(y, 1).Value) Then

        str = y & ":" & y

        Excs.Rows(str).Select

        Selection.Delete Shift:=xlUp

'      nTab.Cells(y, 1).EntireRow.Delete

  Else

    y = y + 1

  End If

Loop

x = x + 1

y = x + 1

Loop