- ©«¤l
- 2831
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2887
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-5
|
¦^´_ 3# gaishutsusuru
Sub ¦X¨Ö()
Dim R&, i&, xA As Range, xZ As Range, T$, xH As Range
R = [A65536].End(xlUp).Row
Set xA = Range("A2:A" & R)
Set xZ = Range("Z2:Z" & R) 'É¥ÎzÄæ·í¦X¨Ö®æ
xA.Copy: xZ.PasteSpecial xlPasteFormats '½Æ»s®æ¦¡¨ìzÄæ
For i = 1 To xA.Count
If xA(i) <> T Then Set xH = xZ(i): T = xA(i)
If xA(i + 1) <> T Then Range(xH, xZ(i)).Merge
Next i
xZ.Copy: xA.PasteSpecial xlPasteFormats '½Æ»s®æ¦¡¨ìaÄæ
xA.Borders.LineStyle = 1 '¥[®Ø½u, ¸Ñ°£¦X¨Ö«á¤´«O¦³®Ø½u
xZ.EntireColumn.Delete '²M°£zÄæ
End Sub
Sub ¦X¨Ö¸Ñ°£()
Range("A:A").UnMerge
End Sub
¥H«á¥ô¦óµo©«n¦Û¦æ¤W½d¨ÒÀÉ, §K±o§O¤HÁÙªá®É¶¡°µ:
X0001.rar (7.7 KB)
========================= |
|