- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 149
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-6-28
![2023¦~¥þ¶Ô¼ú³¹ 2023¦~¥þ¶Ô¼ú³¹](images/common/2023.png) ![2022ªê¦~¥þ¶Ô¼ú³¹ 2022ªê¦~¥þ¶Ô¼ú³¹](images/common/hu.gif) ![2021¤û¦~¥þ¶Ô¼ú³¹ 2021¤û¦~¥þ¶Ô¼ú³¹](images/common/niu.gif) ![2020¹«¦~¥þ¶Ô¼ú³¹ 2020¹«¦~¥þ¶Ô¼ú³¹](images/common/shu.gif) ![2019 ½Þ¦~¥þ¶Ô¼ú³¹ 2019 ½Þ¦~¥þ¶Ô¼ú³¹](images/common/zhu.gif) ![2018 ª¯¦~¥þ¶Ô¼ú³¹ 2018 ª¯¦~¥þ¶Ô¼ú³¹](images/common/gou.gif) ![2017 Âû¦~¥þ¶Ô¼ú³¹ 2017 Âû¦~¥þ¶Ô¼ú³¹](images/common/ji.gif) ![2016µU¦~¥þ¶Ô¼ú³¹ 2016µU¦~¥þ¶Ô¼ú³¹](images/common/hou.gif) ![2015¦Ï¦~¥þ¶Ô¼ú³¹ 2015¦Ï¦~¥þ¶Ô¼ú³¹](images/common/yang.gif) ![2014°¨¦~¥þ¶Ô¼ú³¹ 2014°¨¦~¥þ¶Ô¼ú³¹](images/common/ma.gif) ![2013³D¦~¥þ¶Ô¼ú³¹ 2013³D¦~¥þ¶Ô¼ú³¹](images/common/she.gif) ![2012Às¦~¥þ¶Ô¼ú³¹ 2012Às¦~¥þ¶Ô¼ú³¹](images/common/long.gif) ![½×¾Â°^Äm¾±³¹ ½×¾Â°^Äm¾±³¹](images/common/medal5.gif) ![¼ö¤ß¤½¯q¾±³¹ ¼ö¤ß¤½¯q¾±³¹](images/common/medal15.gif) ![2011¨ß¦~¥þ¶Ô¼ú³¹ 2011¨ß¦~¥þ¶Ô¼ú³¹](images/common/tu.gif)
|
¦^´_ 4# adam2010 - Sub ex()
- With Sheets("data")
- .Cells.Clear '²MªÅ¤u§@ªí
- Sheets("Original").UsedRange.Copy .[A1] '½Æ»s¸ê®Æ
- .Columns("C").Replace "*p", "" '±N§t¦³"p"ªºÀx¦s®æ²MªÅ
- .Columns("C").SpecialCells(xlCellTypeBlanks).EntireRow.Delete '±N¤W¦C²MªÅªº¦ì¸m¾ã¦C§R°£
- .Columns("A").UnMerge 'AÄæ¨ú®ø¦X¨Ö
- .Rows(1) = .Rows(1).Value '¼ÐÃD¦C«·sµ¹È¡A¥i±Nì¨Ó¼ÆȦs¦¨¤å¦r³¡¤À§ï¦¨¼ÆÈ
- For i = 6 To 23 '¤ÀÄæ°õ¦æ¨ú¥N°Ê§@¥[§Ö³t«×
- .UsedRange.Columns(i).Replace "-", "" '¥h°£-¸¹
- Next
- .[F:P].Insert '´¡¤JÄæ
- Sheets("¤½¦¡").[F1:P2].Copy .[F1] '½Æ»s¤½¦¡
- r = .Cells(.Rows.Count, 5).End(xlUp).Row '¸ê®Æ¦C¼Æ
- .Range("F2:P2").AutoFill Destination:=.Range("F2:P" & r) '¤½¦¡¦V¤U¶ñº¡
- k = .UsedRange.Columns.Count + 1 '±o¨ì¤w¨Ï¥ÎÄæ¦ì¼Æ
- Sheets("¤½¦¡").[DL1:DS2].Copy .Cells(1, k) '½Æ»s¤½¦¡¨ìªí§À
- .Cells(2, k).Resize(, 8).AutoFill .Range(.Cells(2, k), .Cells(r, k + 7)) '¦V¤U¶ñº¡
- End With
- End Sub
½Æ»s¥N½X |
|