½Ð°Ý¥Î¦Ûq²M³æ¡A¨Ó¶i¶¥¿z¿ï¥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
|
½Ð°Ý¥Î¦Ûq²M³æ¡A¨Ó¶i¶¥¿z¿ï¥X¸ê®Æ?
¦bÀx¦s®æG1¡A¬O¦Ûq²M³æ¡C
·Qn±N¥ªÃ䪺¸ê®Æ¡A¨Ì¦Ûq²M³æ¡A¶i¶¥¿z¿ï¦¨¥kÃ䪺¸ê®Æ¡A½Ð°Ýn¦p¦ó¤~¯à°µ¨ì©O?
ÁÂÁ¤j®aªº¨ó§U¡C·PÁ¡C |
|
|
|
|
|
|
- ©«¤l
- 561
- ¥DÃD
- 160
- ºëµØ
- 0
- ¿n¤À
- 725
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-7
|
¦p¤U
°õ¦æ robert §Y¥i
Sub robert()
Application.Run "robert1"
Application.Run "robert2"
End Sub
Sub robert1()
Sheet1.[K265536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[K65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 1) = Sheet1.Cells(2, 7) Then
Sheet1.Cells(Y + 1, 11) = Sheet1.Cells(M, 1)
Sheet1.Cells(Y + 1, 12) = Sheet1.Cells(M, 2)
Y = Y + 1
End If
Next
End Sub
Sub robert2()
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[K65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 1) = Sheet1.Cells(3, 7) Then
Sheet1.Cells(Y + 1, 11) = Sheet1.Cells(M, 1)
Sheet1.Cells(Y + 1, 12) = Sheet1.Cells(M, 2)
Y = Y + 1
End If
Next
End Sub |
|
ù
|
|
|
|
|
- ©«¤l
- 561
- ¥DÃD
- 160
- ºëµØ
- 0
- ¿n¤À
- 725
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- xp
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2014-9-10
- ³Ì«áµn¿ý
- 2024-8-7
|
Sub robert()
Sheet1.[K265536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[K65536].End(xlUp).Row
For M = 2 To X
For K = 2 To 10
If Sheet1.Cells(M, 1) = Sheet1.Cells(K, 7) Then
Sheet1.Cells(Y + 1, 11) = Sheet1.Cells(M, 1)
Sheet1.Cells(Y + 1, 12) = Sheet1.Cells(M, 2)
Y = Y + 1
End If
Next
Next
End Sub |
|
ù
|
|
|
|
|
- ©«¤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-12
|
¦^´_ 1# gaishutsusuru
¤W¶ÇÀɮ׬O³Ì°ò¥»ªº, ¤j®a¤£·Q¬°¤F¸ÑÃDÁÙ¥tªá®É¶¡¥h«Ø¼Ë¥»ÀÉ~~ |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 4# ã´£³¡ªL
±z¦n¡A¤£¦n·N«ä¡C¦]¬°¤W¦¸¨Sª`·N¬Ýn¥ÎÀ£ÁYÀɤW¶Ç¡A¥H¬°¬O¤£¯à¤W¶Ç¡C
ªþ¤WÀɮסA¦A³Â·Ð±z»P¦U¦ì¤j¤j¨ó§U¡A·PÁ¡C
¬¡¶Ã¯2.zip (7.71 KB)
|
|
|
|
|
|
|
- ©«¤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-12
|
¦^´_ 5# gaishutsusuru
°}¦C¤½¦¡(¤TÁ䧹¦¨)
=INDEX(A:A,SMALL(IF(COUNTIF($G:$G,$A$2:$A$99),ROW($2:$99),4^8),ROW(A1)))&""
¥k©Ô/¤U©Ô
µù:¦¹¤½¦¡¦pªG¬Ò¬°[¤å¦r®æ¦¡]
©Î:
=IFERROR(INDEX(A:A,SMALL(IF(COUNTIF($G:$G,$A$2:$A$99),ROW($2:$99)),ROW(A1))),"") |
|
|
|
|
|
|
- ©«¤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
|
¦^´_ 6# ã´£³¡ªL
ÁÂÁ±zªº¨ó§U¡C |
|
|
|
|
|
|
- ©«¤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# rouber590324
±z¦n¡A§Ú±N±z´£¨Ñªº¥¨¶°½X½Æ»s«á¡An°õ¦æ®É¡A·|¥X²{¿ù»~¡G424¡A¦¹³B»Ýnª«¥ó¡C
½Ð°Ý¦p¦ó³B²z©O¡AÁÂÁ |
|
|
|
|
|
|
- ©«¤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-12
|
¥i¥H¥Î[¶i¶¥¿z¿ï]
Sub ±ø¥ó¿z¿ï()
Dim cRNG As Range
[I:J].Clear
Set cRNG = Range([G1], [G65536].End(xlUp))
If cRNG.Count = 1 Then Exit Sub
Range("A:B").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=cRNG, _
CopyToRange:=Range("I1:J1"), Unique:=False
End Sub |
|
|
|
|
|
|