- ©«¤l
- 586
- ¥DÃD
- 123
- ºëµØ
- 0
- ¿n¤À
- 763
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOW7
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2010-5-16
- ³Ì«áµn¿ý
- 2017-3-14
|
¦^´_ 2# oobird
ÁÂÁª©¥D¦^ÂÐ
¤U±¬O§Úè·Q¥X¨Óªº¤è¦¡
¤èªk®t¯u¦h
¦Ó¥B§Úªº¤è¦¡¥i¥H»¡¬O¦³ÂIÄúÀ¿(±¼º£)
ª©¥D¤S¨Ï¥Î¤F§Ú¤£¤Ó·|ªº¦r¨å
¥ý¦¬¤U¬ã¨s
·P®¦- Sub ´ú¸Õ()
- Application.ScreenUpdating = False
- Range("F2").Resize(Range("A65536").End(xlUp).Row, Range("iv1").End(xlToLeft).Column).Clear
- Columns("H:H").Clear
- Range("A1:A" & Range("A65536").End(xlUp).Row).AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range( _
- "H1"), Unique:=True
- Range("F1").Resize(, Range("H65536").End(xlUp).Row - 1) = Application.Transpose(Range("H2:H" & Range("H65536").End(xlUp).Row))
- Range("H2:H" & Range("H65536").End(xlUp).Row).Clear
- For i = 2 To Range("B65536").End(xlUp).Row
- For n = 6 To [iv1].End(xlToLeft).Column
- If Cells(1, n) = Cells(i, 1) Then
- Cells(i, n) = Cells(i, 2)
- End If
- Next
- Next
- For n = 6 To [iv1].End(xlToLeft).Column
- Columns(n).SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
- Next
- End Sub
½Æ»s¥N½X |
|