- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 41
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-2-16
![2024¦~¥þ¶Ô¼ú³¹ 2024¦~¥þ¶Ô¼ú³¹](images/common/dragon2024.png) ![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)
|
¦^´_ 1# jasonwu0114
¨º¬O¦]¬°¥æ©ö³¡¦ìªº¦WºÙ¤£¦P©ÒP¤u§@ªí1ªºA02110¦h¤F¤@ӪťÕÁä
°£¤F¤@¤@¼g¤Jªº¤èªk¡A¤]¥i¤@¦¸¼g¤J°}¦C
§AªºÄæ¦ì°¾²¾¶qÀ³¸Ó¬O5¤£¬O8§a?- Sub ¶Å¨é¶K()
- Dim rng As Range, rng1 As Range, TP As Range, TP1 As Range
- Dim D(1) As Object
- Set D(1) = CreateObject("scripting.dictionary")
- Sheets("¤u§@ªí1").Select
- With Range("a1:a50")
- Set TP = .Find(what:="¥æ©ö³¡¦ì", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext)
- End With
- Set rng = TP.Offset(2)
- Do While rng <> ""
- With rng
- D(1)(Trim(rng)) = Array(Val(.Offset(, 8)), Val(.Offset(, 9)), Val(.Offset(, 10)), Val(.Offset(, 11)), Val(.Offset(, 12)))
- End With
- Set rng = rng.Offset(1)
- Loop
- Sheets("¶Å¨é-¤w¥æ³Î³¡¦ì(¥x¹ô)").Select
- With Range("a1:a50")
- Set TP1 = .Find(what:="¥æ©ö³¡¦ì", LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext)
- End With
- Set rng1 = TP1.Offset(1)
- Do While rng1 <> ""
- With rng1
- If IsArray(D(1)(Trim(rng1))) Then
- '.Offset(, 5).Resize(, 5) = D(1)(Trim(rng1))'¤@¦¸¼g¤J°}¦C
- '¥H¤U¬°³v¤@¼g¤J
- .Offset(, 5) = D(1)(Trim(rng1))(0)
- .Offset(, 6) = D(1)(Trim(rng1))(1)
- .Offset(, 7) = D(1)(Trim(rng1))(2)
- .Offset(, 8) = D(1)(Trim(rng1))(3)
- .Offset(, 9) = D(1)(Trim(rng1))(4)
- End If
- End With
- Set rng1 = rng1.Offset(1)
- Loop
- End Sub
½Æ»s¥N½X |
|