¦p¦ó°Ñ·Ó¸ê®Æ±N¤Ä¿ï¶µ«ü©w¦Ü½d³òÀx¦s®æ
- ©«¤l
- 129
- ¥DÃD
- 47
- ºëµØ
- 0
- ¿n¤À
- 206
- ÂI¦W
- 1
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-10
- ³Ì«áµn¿ý
- 2024-8-14
|
¦p¦ó°Ñ·Ó¸ê®Æ±N¤Ä¿ï¶µ«ü©w¦Ü½d³òÀx¦s®æ
|
|
|
|
|
|
- ©«¤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
|
¥tӰѦҡG
Sub TEST()
Dim xD, T, TT, xR As Range
Set xD = CreateObject("Scripting.Dictionary")
For Each xR In Range([B2], [B65536].End(xlUp))
¡@¡@T = xR(1, 2): If T <> "" Then xD(T) = xD(T) & "|" & xR
Next
¡@
Set xR = [E4]: xR.Resize(1, 100) = ""
For Each T In Array("V", "O", "X")
¡@¡@If xD(T) = "" Then GoTo 101
¡@¡@TT = Split(Mid(xD(T), 2), "|")
¡@¡@xR.Resize(1, UBound(TT) + 1) = TT
¡@¡@Set xR = xR(1, UBound(TT) + 4)
101: Next
End Sub |
|
|
|
|
|
|
- ©«¤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
|
http://blog.xuite.net/hcm19522/twblog/371048822 |
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¥»©«³Ì«á¥Ñ yen956 ©ó 2016-1-5 15:22 ½s¿è
§Ú¤]¸Õ¸Õ¬Ý:- Sub TEST1()
- Dim dv As Object, d0 As Object, dx As Object, E
- Set dv = CreateObject("Scripting.Dictionary")
- Set d0 = CreateObject("Scripting.Dictionary")
- Set dx = CreateObject("Scripting.Dictionary")
- For Each E In Range([B2], [B65536].End(xlUp))
- If E.Offset(0, 1) = "V" Then dv.Item(E) = ""
- If E.Offset(0, 1) = "O" Then d0.Item(E) = ""
- If E.Offset(0, 1) = "X" Then dx.Item(E) = ""
- Next
- [E4].Resize(1, 40) = ""
- [E4].Resize(1, dv.Count) = dv.Keys
- [E4].Offset(0, dv.Count + 2).Resize(1, d0.Count) = d0.Keys
- [E4].Offset(0, dv.Count + 2 + d0.Count + 2).Resize(1, dx.Count) = dx.Keys
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 129
- ¥DÃD
- 47
- ºëµØ
- 0
- ¿n¤À
- 206
- ÂI¦W
- 1
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-10
- ³Ì«áµn¿ý
- 2024-8-14
|
¦^´_ 3# ã´£³¡ªL
·PÁ¦U¦ì¤j¤jªº¸Ñµª, ^^
¤p§Ì¥t½Ð±Ð¦p¦ó§â E4:AG4 ¸ê®Æ²MªÅ, ¨Ã¨CÄæ3¦C¦X¨Ö¦¨¤@®æÀx¦s®æ, ¥B³£µL®Ø½u
|
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¦^´_ 6# 074063
Sub test()
Dim I As Integer, J As Integer
For I = 5 To 33
Cells(4, I).Resize(3, 1).Select
With Selection
.Merge
For J = 1 To 4
.Borders(J).LineStyle = xlNone
Next
End With
Next
End Sub |
|
|
|
|
|
|
- ©«¤l
- 129
- ¥DÃD
- 47
- ºëµØ
- 0
- ¿n¤À
- 206
- ÂI¦W
- 1
- §@·~¨t²Î
- 7
- ³nÅ骩¥»
- 2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-8-10
- ³Ì«áµn¿ý
- 2024-8-14
|
¦^´_ 7# yen956
ÁÂyen956¤j¤j¸Ñµª, °õ¦æ°_¨Ó¦n¹³¥d¥dªº
·PÁÂGBKEE¡Bã´£³¡ªL¡Bhcm19522¡Byen956
¦Aªþ¤WÀɮפj¤jÌÀ°¦£..
Book2.rar (28.13 KB)
|
|
|
|
|
|
|
- ©«¤l
- 522
- ¥DÃD
- 36
- ºëµØ
- 1
- ¿n¤À
- 603
- ÂI¦W
- 0
- §@·~¨t²Î
- win xp sp3
- ³nÅ骩¥»
- Office 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-12-13
- ³Ì«áµn¿ý
- 2021-7-11
|
¥»©«³Ì«á¥Ñ yen956 ©ó 2016-1-6 12:14 ½s¿è
¦^´_ 8# 074063
Book2 ªº¿é¥X½d³ò»PBook1 ªº¿é¥X½d³ò¤£¦P,
ì VAB n®M¥Î¨ì Book2 ¤W, ½Ð±N¬ÛÃö¦ì§}§ï¤@§ï,
(¤£½×¬O¤½¦¡©Î¬OVBA§¡¦p¦¹)
¥H 5#F §ÚªºVBA¬°¨Ò, ¥un±N
[E4] §ï¬° [H13], §Y¥i¥¿±`
¤S, ¿é¥X¥Øªº¦aªº®æ¦¡©y«O«ù¤@P, ¤¤¶¡¤S´¡¤J®É¶¡µ¥®æ¦¡,
·|³y¦¨¾ãÓªí®æ¨S¦³¼u©Ê, ¤£¯à¼W¥[©Î´î¤Ö¦U²Õ¦W³æªº½Õ¾ã.
ªí®æ¶V²³æ¶V¦n³B²z |
|
|
|
|
|
|
- ©«¤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
|
Sub ²M°£()
With Range("H13:H15")
¡@¡@¡@.UnMerge
¡@¡@¡@.ClearContents
¡@¡@¡@.Borders.LineStyle = xlNone
¡@¡@¡@.Merge
¡@¡@¡@.Copy Range("I13:AJ15")
End With
End Sub
¥u¯à«Øij¥H¡e«ö¶s¡f°õ¦æ¡A¤£n¦k¥Îchange¨Æ¥ó¡A³y¦¨ÀÉ®×¾Þ§@ªº§xÂZ©Î®Ä²v¡I¡I¡I |
|
|
|
|
|
|