¨Ó·½¸ê®ÆÄæ¦ì¤ñ¹ï«á¡A±Nȶñ¨ì¬ÛÀ³ªºsheet¶±Äæ¦ì¤º
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 5
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2025-1-9
|
¨Ó·½¸ê®ÆÄæ¦ì¤ñ¹ï«á¡A±Nȶñ¨ì¬ÛÀ³ªºsheet¶±Äæ¦ì¤º
Book1.rar (10.37 KB)
½Ð±Ð¦U¦ì¥ý¶i
ªþ¥ó¤¤¡Asource¬°¨C¤é¶×¤Jªº¤å¦rÀɸê®ÆÄæ¦ì
¦]¦b¤º¤å¸Ì©È´yz¤£²M·¡¡Aªþ¥ó¸Ì±¦³¸Ôz¨Ã¼Ð¥Ü¹w´Áµ²ªG
Àµ½Ð¥ý¶iÌ¡Aµ¹¤©§Ú¤@¨Ç«Øij»P¤èªk
ÁÂÁ¤j®a |
|
|
|
|
|
|
- ©«¤l
- 4901
- ¥DÃD
- 44
- ºëµØ
- 24
- ¿n¤À
- 4916
- ÂI¦W
- 12
- §@·~¨t²Î
- Windows 7
- ³nÅ骩¥»
- Office 20xx
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥x¥_
- µù¥U®É¶¡
- 2010-4-30
- ³Ì«áµn¿ý
- 2025-1-13
|
¦^´_ 3# chi830 - Sub ex()
- Set d = CreateObject("Scripting.Dictionary")
- Set d1 = CreateObject("Scripting.Dictionary")
- With Sheets("index")
- For Each a In .Range(.[B2], .[B2].End(xlDown))
- d(a & "") = a.Offset(, -1).Text
- Next
- End With
- With Sheets("source")
- For Each a In .Range(.[A2], .[A2].End(xlDown))
- d1(a & "," & a.Offset(, 1) & "," & a.Offset(, 2)) = a.Offset(, 3)
- Next
- End With
- For Each ky In d1.keys
- sh = d(Split(ky, ",")(0))
- With Sheets(sh)
- myid = .[A1]
- For Each a In .Range(.[A3], .[A3].End(xlDown))
- a.Offset(, 1).Resize(, 2) = Array(d1(myid & "," & a & "," & "01"), d1(myid & "," & a & "," & "02"))
- Next
- End With
- Next
- End Sub
½Æ»s¥N½X |
|
¾Ç®üµL²P_¤£®¢¤U°Ý
|
|
|
|
|
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
|
¦^´_ 3# chi830
¦pªGsource¬O¤@¤Ñªº¤W¤U¯Z®É¨è¸ê®Æ- Option Explicit
- Sub Ex()
- Dim D As Object, E As Variant
- Set D = CreateObject("SCRIPTING.DICTIONARY")
- With Sheets("source")
- For Each E In .Range("A2", .[A2].End(xlDown))
- If D(E.Text) = "" Then
- D(E.Text) = E(1, 2) & "," & E(1, 4).Text
- Else
- D(E.Text) = D(E.Text) & "," & E(1, 4).Text
- End If
- Next
- End With
- For Each E In Sheets
- If D(E.Cells(1).Text) <> "" Then
- With E.Cells(E.Rows.Count, 1).End(xlUp).Offset(1)
- .Resize(, 3) = Split(D(E.Cells(1).Text), ",")
- End With
- End If
- Next
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 105
- ¥DÃD
- 27
- ºëµØ
- 0
- ¿n¤À
- 168
- ÂI¦W
- 5
- §@·~¨t²Î
- Win10
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2025-1-9
|
¦^´_ 7# Hsieh
Hsieh ¤j~³o¬O¥i¥Hªº,¦¨¥\¤F,ÁÂÁ³á!! |
|
|
|
|
|
|