½Ð±ÐVBA§R°£AÄæ«ü©w"¤¤¤å"¦r¤¸(¦C)

jsc0518

¦U¦ì¤j¤j¡A
¤§«e¦³½Ð±Ð¤j®a¨Ï¥Î¤U¦C»yªk¥i¥H§R°£«ü©w¦r¤¸
For Each x In Split("TPD.TPD-both.TPD-viewing.GSA", ".")
§Ú·Q§â³o¤@¬q§ï¦¨§R°£ Ãþ§O: ¥H¤Î ·|­p¬ì¥Ø:

§Ú§ï¦¨
For Each x In Split("Ãþ§O:"."·|­p¬ì¥Ø:", ".")
¦ý¥X²{¿ù»~

¬O§_»yªk¶·­×­q



Sub Step1()
    Dim d As Object
    Dim arr
    st = Timer
    Set d = CreateObject("Scripting.Dictionary")
    For Each x In Split("TPD.TPD-both.TPD-viewing.GSA", ".")
        d(x) = ""
    Next x
    arr = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count)
    For I = 1 To UBound(arr)
        If d.exists(arr(I, 1)) Then arr(I, 1) = ""
    Next I
    [A1].Resize(UBound(arr), 1) = arr
    Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Set d = Nothing
    arr = ""
End Sub

jsc0518

¦^´_ 11# lpk187


ÁÂÁ±zªº¦^ÂСA§Ú¦A¸Õ¸Õ

lpk187

¦^´_ 10# jsc0518


    ¨º´N°µ°Ï°ì§a¡I(with)
With Sheets("¤u§@ªí")
arr = .Range("A1:A" & .UsedRange.Rows.Count + 1)
    For I = 1 To UBound(arr)
        If d.exists(arr(I, 1)) Then arr(I, 1) = ""
    Next I
    .[A1].Resize(UBound(arr), 1) = arr
    .Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With

jsc0518

¦^´_ 7# bobomi

±z¦n¡A·Q¸ò±z½Ð±Ð¤@­Ó°ÝÃD¡A
§Ú±N¥¨¶°ªº¦WºÙ§ó§ï¬°­^¤å«á¡A¦b¸Ó¤u§@ªí¤W°õ¦æ¬O¥¿±`ªº
¦ý§Ú¦b¥t¤@­Ó¤u§@ªí°µ¤F¤@­Ó«ö¶s¡A¥h°õ¦æ¸ÓVBA®É
³o®É«ü©w§R°£¤¤¤åªº¦C´NµLªk²M°£±¼¡A¦Ó¥u·|§R°£ªÅ¥Õ¦C

­Y¦³¸ó¤u§@ªí°õ¦æ®É¡A­n«ç»ò°µ?

jsc0518

¦^´_ 7# bobomi

§Ú²×©óª¾¹D¬°¦ó¤£¯à§R°£ÃöÁ䪺¤¤¤å¦rªº­ì¦]

µ{¦¡¨Ì·Ó±z©Ò´£¨Ñªº»yªk
¦ý­Y¥¨¶°¦WºÙ
¬° Sub DelBlank2() --> ¥¿±`¥i¥H²¾°£
¬° Sub ²¾°£¤¤¤å() --> ¥u¥i²¾°£ªÅ¥Õ¡A¦ý¤¤¤å¤´µLªk²¾°£

®t¦b¥¨¶°¦WºÙªº©w¸q

jsc0518

¦^´_ 7# bobomi


©êºp§Ú§Ë¿ù¤F¡A´ú¸Õ¬O¥i¥H¾ã¦C²¾°£ªº
·PÁ§Aªº¦^ÂÐ!

bobomi

¦^´_ 6# jsc0518

§Aªºµ{¦¡¤w¸g¥i¥H§R°£«ü©w¤¤¤å¦rªº¾ã¦C¡A¤£¬O¶Ü¡H
¤£µM½ÐÁ|­Ó§R°£¥¢±Ñªº¨Ò¤l

jsc0518

¦^´_ 4# bobomi

±z¦n¡A³o»yªk¥i¥H§R°£«ü©wªº¤¤¤å¦r¡A¦ý§Ú¬O·Q§R°£³o¤¤¤å¦rªº"¦C"¡A¥þ§R°£

¤U¸ü (40.37 KB)

2017-3-3 09:00

jsc0518

¦^´_ 4# bobomi

Test OK,¤Ó·PÁ§A¤F

­ì¨Ó¬O§ï¤F³o¤@¬q
    arr = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count + 1)

Thanks!

bobomi

¦^´_ 3# jsc0518

Sub DelBlank2()
    Dim d As Object
    Dim arr
    st = Timer
    Set d = CreateObject("Scripting.Dictionary")
    For Each x In Split("Ãþ§O:.·|­p¬ì¥Ø:", ".")
        d(x) = ""
    Next x
    arr = Range("A1:A" & ActiveSheet.UsedRange.Rows.Count + 1)
    For I = 1 To UBound(arr)
        If d.exists(arr(I, 1)) Then arr(I, 1) = ""
    Next I
    [A1].Resize(UBound(arr), 1) = arr
    Columns("A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    Set d = Nothing
    arr = ""
End Sub