- ©«¤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
|
ã¤j¡A±zªºµ{¦¡¹ï§Úªºµ{«×¨Ó»¡¹ê¦b¤Ó²`¶ø¤F¡A¤×¨ä¬O³B²z¤ÀÃþ¦r¦ê¨º³¡¤À¡A´X¥G§¹¥þ¬Ý¤£À´¡C
§Ú¦b½×¾Â¸Ì§ä¨ì¤@Ó½d¨Ò¡A»P§Ú·Qnªºµ²ªGÁÙº¡±µªñªº¡Aקï¤F¤@¤U¡A¥Ø«e¬Ý¨Ó¥i¥Î¡A¦ý´N¬O¥u¯àµ²¦X¦r¦ê(¦r¦ê³Ì¥kÃä·|¯Ê¤@Ó¥k¬A¸¹)¡A¨S¿ìªkÂà¦UÄæ¦ìªº¼ÆÈ¡A¯àÀ°§Ú¬Ý¬Ý¥[¤WÂà¦UÄæ¦ìªº¼ÆȶÜ?- Sub new1()
- Set d = CreateObject("Scripting.Dictionary")
- For Each s In Range([S7], [S3000].End(xlUp))
- If d(s.Value) = "" Then '¦pªGKÄæ¸ê®Æ¥u¦³¤@µ§¤£«½Æ
- d(s.Value) = s.Offset(, -5) & " " & "( " & s.Offset(, -15) & " " & s.Offset(, -12) & " PCS"
- Else
- d(s.Value) = d(s.Value) & ", " & s.Offset(, -15) & " " & s.Offset(, -12) & " PCS"
- End If
- Next
- With Sheets("INVOICE")
- xrow = .[F3000].End(xlUp).Row
- .[B3] = xrow
- .Range("C" & xrow + 1, "K3000").ClearContents
- .Range("F" & xrow).Offset(1, 0).Resize(d.Count, 1) = Application.Transpose(d.items)
- End With
- Set d=Nothing
- End Sub
½Æ»s¥N½X |
|