ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

filter«¬ºA¤£²Å¦X

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-8-2 01:20 ½s¿è

¦^´_ 5# °a¤ªºµ

¤H®a»¡¥L¦¨¥\¤F¡A¤£¹L¨S¶Kµ{¦¡µLªkÅçÃÒ

¦ý¬O§Aªºµ{¦¡ÁÙ¨S¦¨¥\­ò¡A¦]¬°§A¨C¦¸³£§âE­«¸m¬°2¡A

¦A°õ¦æE=E+1¡A©Ò¥HE³Ì¦h=3 (²Ä3¦C)

¹J¨ì¦P¤@­Ó¦aÂI¦³3µ§¸ê®Æ¥H¤W¡A

§A·|¤@ª½Âл\¦U¤À­¶ªº²Ä3¦C(²Ä2µ§¸ê®Æ)

§A¥i¥H§â¸ê®Æ¿é¤J¦h¤@ÂI¸Õ¸Õ¡A¦p¤U¹Ï

½ÐÄ~Äò¥[ªo~  


123.png
2020-8-2 01:18
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-8-2 11:11 ½s¿è

¦^´_ 10# n7822123

ÁÂÁ n7822123 ¤j¤jªº ¤À¨É ¤p§Ì¬ã¨s¤@¤U XD
¶¶«K½Ð°Ý¬°¬Æ»ò¨Ï¥Î                 
               D = Array(K(J, 1), K(J, 2), K(J, 3))
                Sheets(K(J, 2)).Rows(E) = D
ªº®É­Ô·|¥X²{ #N/A

javascript:;
À³¸Ó¦p¦ó¼g ¤~¤£·|¥X²{ #N/A
888.png

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-8-2 12:07 ½s¿è

¦^´_ 12# °a¤ªºµ

¶¶«K½Ð°Ý¬°¬Æ»ò¨Ï¥Î                 
D = Array(K(J, 1), K(J, 2), K(J, 3))
Sheets(K(J, 2)).Rows(E) = D
ªº®É­Ô·|¥X²{ #N/A


Sheets(K(J, 2)).Rows(E) = D

Rows¥Nªí¾ã¦C¡A¦Ó§AªºD°}¦C¥u¦³3µ§¸ê®Æ¡A©Ò¥H¨S¸ê®Æªº³¡¤À´NÅܦ¨"#N/A"

À³¸Ó¦p¦ó¼g ¤~¤£·|¥X²{ #N/A

µ¥¸¹«e­±½d³ò¥u¦³3Äæ¦Ó¤£¬O¾ã¦C©Ò¦³Äæ¡A´N¤£·|Åܦ¨#N/A

Sheets(K(J, 2)).Cells(E, 1).Resize(, 3) = D

¨Ì°}¦C¸ê®Æµ§¼Æªº¼u©Ê¼gªk (§Aªº°}¦C±q0¶}©l¡A©Ò¥H­n¥[1)

Sheets(K(J, 2)).Cells(E, 1).Resize(, UBound(D) + 1) = D
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ °a¤ªºµ ©ó 2020-8-2 15:21 ½s¿è

¦^´_ 13# n7822123
ÁÂÁ n7822123 ªº»¡©ú §Ú©ú¥Õ¤F  ½Ð°Ý ¨º¦pªG­nÅý  A = Array("¤T°Ó", "»·ªF", "«H¸q")  Åܦ¨°ÊºA¦³¼u©Ê ¸Ó¦p¦ó¼g©O?
¦]¬°²{¦b¦³¤@­Ó°ÝÃD ´N¬O ¦pªG¤u§@ªíÅܦh¤F ¤]¥u·|¤ñ¹ï3­Ó¤u§@ªí ·Qªk¬O§â¤u§@ªí¦W¤l¥á¨ìArray()¸Ì­± ¦ý¬O¤£ª¾¹D«ç»ò¥á   Äæ ¸ò ¦C  ªº°ÝÃD §Ú¬O³o¼Ë¼g
  1. Public Sub ¸ó¤u§@ªí°}¦C½m²ß()

  2.     For X = 2 To Sheets.Count
  3.         Sheets(X).Cells.Clear
  4.     Next X
  5.    
  6.     A = Array("¤T°Ó", "»·ªF", "«H¸q")
  7.     K = Range(Cells(2, 1), Cells(2, 4).End(xlDown))
  8.     F = Cells(1, Columns.Count).End(xlToLeft).Column

  9.     For J = LBound(K) To UBound(K)
  10.         For i = LBound(A) To UBound(A)
  11.             If A(i) = K(J, 2) Then
  12.                 If Sheets(K(J, 2)).Cells(1, 1) = "" Then Sheets(1).Rows(1).Copy Sheets(K(J, 2)).Rows(1)
  13.                 For D = 1 To F
  14.                     Sheets(K(J, 2)).Cells(Rows.Count, D).End(xlUp).Offset(1, 0) = K(J, D)
  15.                 Next D
  16.             End If
  17.         Next i
  18.     Next J

  19.     Erase A, K
  20.    
  21.     Sheets(1).Select
  22.     Cells(1, 1).Select
  23.    
  24. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-8-2 16:38 ½s¿è

¦^´_ 14# °a¤ªºµ


Äæ ¸ò ¦C  ªº°ÝÃD §Ú¬O³o¼Ë¼g

¦pªG§A¤£¦Ò¼{"°õ¦æ®Ä²v"ªº¸Ü¡A§Aªºµ{¦¡¦b¥\¯à¤W¬O¨S¦³°ÝÃDªº

½×¨ì"°õ¦æ®Ä²v"·Ç¤j¤~¬O¦æ®a¡A§Ú¤]¥u¬O¤@¯ë¤ô·Ç

·Ç¤j¼gªºµ{¦¡¦b"°õ¦æ®Ä²v"¤W¡A³£¦³«D±`°ªªº¤ô·Ç!

¤£¹L·Ç¤j¦³®É·|¬°¤F°õ¦æ®Ä²v¡A§âµ{¦¡¼gªº¤ñ¸û¶¡A¨S¨º»òª½Ä±¡A

·s¤â¯uªº¤£©ö¬ÝÀ´¡A©Ò¥H¤£«Øij·s¤â¥h¬Ý·Ç¤jªºµ{¦¡   

³o»P§Úªº¼g§@²ßºD¤£¤Ó¤@¼Ë¡A§Ú»{¬°¼gª½Ä±¡Bª½±µ¤@ÂI¤ñ¸û¦n¥Î©óºûÅ@(­Y¥H«áµ{¦¡»Ý­n§ó·s¡B­×§ï)

©Ò¥H§Ú»{¬°§Úªºµ{¦¡À³¸Ó¬O¤ñ¸û"¿Ë¥Á"¤@ÂI~ ·íµM¤£¥Nªí·s¤â´N¯à¬Ý±oÀ´


½Ð°Ý ¨º¦pªG­nÅý  A = Array("¤T°Ó", "»·ªF", "«H¸q")  Åܦ¨°ÊºA¦³¼u©Ê ¸Ó¦p¦ó¼g©O?

­n¥ý¤UÅÞ¿è¡A°£¤F¥»¨­¤u§@ªí¥H¥~ªº¤u§@ªí³£¯Ç¤JA°}¦C¡A¥i¥H³o¼Ë¼g

Dim A(): K = -1
For Each sh In Sheets
  If sh.Name <> ActiveSheet.Name Then
    K = K + 1: ReDim Preserve A(K)
    A(K) = sh.Name
  End If
Next
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-8-2 16:49 ½s¿è

¦^´_ 15# n7822123

¤W­±¬O"°ÊºA°}¦C" ªº¼gªk¡A¦ý³o¤£¬O§Úªº­·®æ

§Úªº²ßºD¬O¥Î "°ÊºA¦r¦ê"¡A¦AÂà°}¦C¡A¦Û¥Ñ«×§Úı±o§ó°ª(A¬J¥i¥H¬O¦r¦ê¡A¤]¥i¥H¬O°}¦C)

¦p¤U¡A¬Ý§A³ßÅw­þ¤@­Ó


Dim A
For Each sh In Sheets
  If sh.Name <> ActiveSheet.Name Then A = A & "," & sh.Name
Next
A = Split(Mid(A, 2), ",")
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

ÁÂÁ n7822123 ªº¤À¨É»P±Ð¾Ç ¤p§Ì¾Ç¨ì·sªº ªF¦è¤F ¯uªº«D±`·PÁÂ
¤U­±¬Oµ²ªG  ¯ÊÂI ¯uªºÅܺC¤F....XD ¦]¬°§Úªº°j°é¤Ó¦h¤F..   
§Ú·|ºCºC¬ã¨s n7822123¤j¤jÁÙ¦³ ·Ç´£¤j¤j©Ò¼gªº¤è¦¡
¦ý ¦³«Ü¦h¬Ý¤£À´¬O¯uªº. ¤£¹L§ÚºCºC¬ã¨s ¦pªG¤£À´ªº¦a¤è ÁÙ­n ³Â·Ð«e½ú­Ì«ü±Ð ^^"
  1. Public Sub ¸ó¤u§@ªí°}¦C½m²ß()

  2.     Dim A()
  3.     For X = 2 To Sheets.Count
  4.         Sheets(X).Cells.Clear
  5.         ReDim Preserve A(X - 2)
  6.         A(X - 2) = Sheets(X).Name
  7.     Next X
  8.    
  9.     F = Cells(1, Columns.Count).End(xlToLeft).Column
  10.     K = Range(Cells(2, 1), Cells(2, F).End(xlDown))
  11.    
  12.     For J = LBound(K) To UBound(K)
  13.         For i = LBound(A) To UBound(A)
  14.             If A(i) = K(J, 2) Then
  15.                 If Sheets(K(J, 2)).Cells(1, 1) = "" Then Sheets(1).Rows(1).Copy Sheets(K(J, 2)).Rows(1)
  16.                 For D = 1 To F
  17.                     Sheets(K(J, 2)).Cells(Rows.Count, D).End(xlUp).Offset(1, 0) = K(J, D)
  18.                 Next D
  19.             End If
  20.         Next i
  21.     Next J

  22.     Erase A, K
  23.    
  24.     Sheets(1).Select
  25.     Cells(1, 1).Select
  26.    
  27. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD