- ©«¤l
- 162
- ¥DÃD
- 44
- ºëµØ
- 0
- ¿n¤À
- 244
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-4-4
- ³Ì«áµn¿ý
- 2022-10-3
|
ÁÂÁ Hsieh ¤j!èè¸ÕµÛ¥h run ¦Û¤vªº¤u§@ÀɮסA¥u¶Ç¦^4Ä檺¸ê®Æ¬Ookªº¡A¦pªG§Ú±q Sheet1 §ì¦^ªº¸ê®Æ§ï¦¨32Äæ(¤½¥qªº¸ê®Æ«ÜÃe¤j)¡A¥Î¤@Ó°j°é¥h¶]°}¦C¡Aµ²ªG´N¨S¿ìªk¥¿±`°õ¦æ¤F¡A¬O°}¦Cªº¦]¯À¶Ü?§Ú°O±o¦n¹³¦bþ¸Ì¬Ý¹L¤å³¹»¡©ú¡A°}¦Cªº"Äæ"¬O¤£¯à¥Î°j°é¥h¶]ªº¡C¬O³o¼Ë¶Ü?- Sub ex()
- Set d = CreateObject("Scripting.Dictionary")
- With Sheet1
- For Each a In .Range(.[B5], .[B56636].End(xlUp))
- For i = 1 To 32
- d(a & "") = Array(a.Offset(, i).Value) ', a.Offset(, 2).Value, a.Offset(, 3).Value, a.Offset(, 4).Value)
- Next i
- Next
- End With
- With Sheet2
- For Each a In .Range(.[D12], .[D56636].End(xlUp))
- For Each ky In d.keys
- If InStr(a, ky) > 0 Then a.Offset(, 12).Resize(, 32) = d(ky): Exit For
- Next
- Next
- End With
- End Sub
½Æ»s¥N½X |
|