½Ð°Ý¦p¦ó±Nq³æì©l¸ê®ÆÂন»Ýnªº?
- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
½Ð°Ý¦p¦ó±Nq³æì©l¸ê®ÆÂন»Ýnªº?
¤j®a¦n¡A³o´X¤Ñ¬d¤F³\¦h¸ê®Æ¡AÁÙ¬O¤£¯à±N¸ê®ÆÂà¦n¡C·Q½Ð°Ý¦p¦ó±NA:Eªº¸ê®Æ¡A¤À§OÂà´«¦¨H:J ¥H¤ÎM¨ìV©O? (¦pªG¤j®a¦b¤½¦¡³]©w¤W¡A¦³§ó¦nªº±Æ¦C¤è¦¡¡A¤]¥i¥Hª½±µ½Õ¾ã)
Áٷб¡¤j®a¨ó§U¡AÁÂÁ¡C
ªþ¤WEXCELªºÀɮסG
¬¡¶Ã¯1.zip (7.13 KB)
|
|
|
|
|
|
|
- ©«¤l
- 1387
- ¥DÃD
- 4
- ºëµØ
- 0
- ¿n¤À
- 1397
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2015-9-11
- ³Ì«áµn¿ý
- 2024-11-7
|
|
google"EXCEL°g" blog ©Îgoogleºô§}:https://hcm19522.blogspot.com/
|
|
|
|
|
- ©«¤l
- 262
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 280
- ÂI¦W
- 16
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2015-8-11
- ³Ì«áµn¿ý
- 2024-10-26
|
- Sub zz()
- Dim d As Object, a, k, t, b(), n&, m&, kk, tt
- Set d = CreateObject("scripting.dictionary")
- a = Range("a2:e" & [e1048576].End(3).Row)
- For i = 1 To UBound(a)
- d("@" & a(i, 2)) = ""
- k = a(i, 2) & "|" & a(i, 3)
- If Not d.exists(k) Then
- d(k) = Array(a(i, 4), a(i, 5), a(i, 5))
- Else
- t = d(k)
- t(0) = t(0) & "|" & a(i, 4)
- t(1) = t(1) & "|" & a(i, 5)
- t(2) = t(2) + a(i, 5)
- d(k) = t
- End If
- Next
- k = Filter(d.keys, "@")
- ReDim b(1 To UBound(a), 1 To UBound(k) + 1)
- For j = 0 To UBound(k)
- b(1, j + 1) = Mid(k(j), 2)
- d.Remove (k(j))
- kk = Filter(d.keys, b(1, j + 1) & "|")
- For ii = 0 To UBound(kk)
- t = d(kk(ii))
- b(ii + 2, j + 1) = Split(kk(ii), "|")(1) & ":" & t(2)
- m = m + 1
- n = IIf(ii + 2 > n, ii + 2, n)
- Next
- Next
- [h7].Resize(n, UBound(b, 2)) = b
- k = d.keys
- ReDim b(1 To UBound(a), 1 To m * 2): j = 0
- For i = 0 To UBound(k)
- kk = Split(k(i), "|")
- t = d(k(i))
- j = j + 1
- b(1, j) = kk(0)
- b(2, j) = kk(1) & ":" & t(2)
- For jj = 0 To 1
- tt = Split(t(jj), "|")
- For jjj = 0 To UBound(tt)
- b(3 + jjj, j + jj) = tt(jjj)
- Next
- Next
- n = IIf(jjj + 2 > n, jjj + 3, n)
- j = j + 1
- Next
- [m7].Resize(n, UBound(b, 2)) = b
- Set d = Nothing
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
¦^´_ 3# ikboy
ikboy¤j¤j¡A
ÁÂÁ±zªº¨ó§U¡C
¦b¾Þ§@¥¨¶°ªº¹Lµ{¤¤¡A¦³¤@¨Ç¤p°ÝÃD¡A·Q½Ð±Ð±z¡G
1. ·|¥X²{¦pÀɮשҥܪºN/A
2. ±N²Ä¤¦æªº¸ê®Æ½Æ»s¨ì²Ä¤»¦æ¡B²Ä¤C¦æ¡A·|¥X²{°õ¦æ¶¥¬q¿ù»~'9' °}¦C¯Á¤Þ¶W¥X½d³ò¡C
°»¿ù·|¦b¡Gb(3 + jjj, j + jj) = tt(jjj)
·Q½Ð°Ý¦p¦ó¸Ñ¨M©O¡AÁÂÁ±zªº¨ó§U¡C
¬¡¶Ã¯1 (2).zip (16.06 KB)
|
|
|
|
|
|
|
- ©«¤l
- 262
- ¥DÃD
- 8
- ºëµØ
- 0
- ¿n¤À
- 280
- ÂI¦W
- 16
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- Office 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- HK
- µù¥U®É¶¡
- 2015-8-11
- ³Ì«áµn¿ý
- 2024-10-26
|
- Sub zz()
- Dim d As Object, a, k, t, b(), n&, m&, kk, tt
- Set d = CreateObject("scripting.dictionary")
- a = Range("a2:e" & [e1048576].End(3).Row)
- For i = 1 To UBound(a)
- d("@" & a(i, 2)) = ""
- k = a(i, 2) & "|" & a(i, 3)
- If Not d.exists(k) Then
- d(k) = Array(a(i, 4), a(i, 5), a(i, 5))
- Else
- t = d(k)
- t(0) = t(0) & "|" & a(i, 4)
- t(1) = t(1) & "|" & a(i, 5)
- t(2) = t(2) + a(i, 5)
- d(k) = t
- End If
- Next
- k = Filter(d.keys, "@")
- ReDim b(1 To UBound(a), 1 To UBound(k) + 1)
- For j = 0 To UBound(k)
- b(1, j + 1) = Mid(k(j), 2)
- d.Remove (k(j))
- kk = Filter(d.keys, b(1, j + 1) & "|")
- For ii = 0 To UBound(kk)
- t = d(kk(ii))
- b(ii + 2, j + 1) = Split(kk(ii), "|")(1) & ":" & t(2)
- m = m + 1
- n = IIf(ii + 2 > n, ii + 2, n)
- Next
- Next
- [h1].Resize(n, UBound(b, 2)) = b
- k = d.keys
- ReDim b(1 To UBound(a), 1 To m * 2): j = 0
- For i = 0 To UBound(k)
- kk = Split(k(i), "|")
- t = d(k(i))
- j = j + 1
- b(1, j) = kk(0)
- b(2, j) = kk(1) & ":" & t(2)
- For jj = 0 To 1
- tt = Split(t(jj), "|")
- For jjj = 0 To UBound(tt)
- b(3 + jjj, j + jj) = tt(jjj)
- Cells(3 + jjj, j + jj + 12) = tt(jjj)
- Next
- n = IIf(UBound(tt) + 3 > n, UBound(tt) + 3, n)
- Next
- j = j + 1
- Next
- [m1].Resize(n, UBound(b, 2)) = b
- Set d = Nothing
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
¦^´_ 5# ikboy
ikboy¤j¤j±z¦n¡A
·PÁ±z´£¨Ñ·sªº¥¨¶°¡A¦ý¸g¹ê´ú«á¡AÁÙ¬O·|¦³¿ù»~¡C¦p¤U¹Ï¡G
¤£¦n·N«ä¡AY±z¤è«K¡AÁٽг·бz¨ó§U´£¨Ñ¤@¨Ç·Qªk¡AÁÂÁ±z¡C |
|
|
|
|
|
|
- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-11
|
|
|
|
|
|
|
- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
¦^´_ 7# ã´£³¡ªL
ÁÂÁÂã´£³¡ªL¤j¤j´£¨Ñªº¥¨¶°¼gªk¡A¦b¦¹·Q½Ð±Ð±z¡G
¦pªG·QÅý¨âÓªí®æ¤À§O±qJ1©MJ10ªº¦ì¸m¶}©lÅã¥Üªº¸Ü¡A
"
[H1].Resize(MaxRa + 1, MaxCa) = Arr
[H1].Cells(1, MaxCa + 3).Resize(MaxRb + 2, MaxCb) = Brr
"
§Ú§ï¤F¤W±ªº¼gªk¡AÅܦ¨¦p¤U¡G
"
[J1].Resize(MaxRa + 1, MaxCa) = Arr
[J10].Cells(1, MaxCa - 2).Resize(MaxRb + 2, MaxCb) = Brr
"
¦ý§Úµo²{¡A¦pªG¸ê®Æ¤@Åܰʪº¸Ü¡A²Ä¤GÓªí®æ¤£¤@©w·|±qJ10¶}©lÅã¥Ü¡C
·Q½Ð°Ýã´£³¡ªL¤j¤j¡A¸Ó¦p¦ó½Õ¾ã©O? ÁÂÁ±z¡C |
|
|
|
|
|
|
- ©«¤l
- 2833
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2889
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-11-11
|
¦^´_ 8# gaishutsusuru
[J1].Resize(MaxRa + 1, MaxCa) = Arr
[J1].Cells(MaxRa + 4, 1).Resize(MaxRb + 2, MaxCb) = Brr
¤W¤UªÅ¨â¦æ~~ |
|
|
|
|
|
|
- ©«¤l
- 146
- ¥DÃD
- 46
- ºëµØ
- 0
- ¿n¤À
- 220
- ÂI¦W
- 0
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-2-19
- ³Ì«áµn¿ý
- 2023-8-31
|
¦^´_ 9# ã´£³¡ªL
ÁÂÁ±zªº¦^ÂСC
¦b¸g¹L¹ê´ú«á¡Aµo²{²Ä¤GÓªí®æ¬O·|ÀHµÛ²Ä¤@Óªí®æªº¤º®e¨ÓªÅ¨â¦æ¡C
¤£¦n·N«ä¡A·Q½Ð°Ý±z¡A¥i¥HÅý²Ä¤GÓªí®æ©T©w³£±qJ10¶}©l¶Ü¡H
¦A«ô°U±z©âªÅ¨ó§U·Qªk¡AÁÂÁ±z¡C |
|
|
|
|
|
|