- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 277
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2024-12-23
|
¦^´_ 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 |
|