EXCEL ¦Û°Ê¥[¤Jªí®æ

sschristy

½Ð°Ý¦U¦ì«e½ú¡A§Ú·Q­n§Q¥Î®Ö¨ú¤è¶ô±N»Ý­nªº¤º®e¤Ä¿ï¡A¦p¹Ï1¤¤²Ä3¡B4¦C¤Ä¿ï¡AÂI¿ï¥kÃ䪺"¥[¤J¥Dªí®æ"«ö¶s«á¡A
Åý³o¨â¦Cªí®æ¤ºªº¤å¦r¦Û°Ê¥[¨ì"¥Dªí®æ"¤¤¡A½Ð°Ý¬O§_¦³¿ìªk¹ê²{©O¡H

2023-10-2 15:31

2023-10-2 15:31

Andy2483

¦^´_ 1# sschristy


    ÁÂÁ«e½úµoªí¦¹¥DÃD»P±¡¹Ò
«Øij¤W¶Ç­Ó½d¨Ò

sschristy

¦^´_ 2# Andy2483


   ©êºp¡A½Ð°Ý¸Ó¦p¦ó¤W¶ÇEXCELÀɮסH

Andy2483

¦^´_ 3# sschristy


    http://forum.twbts.com/viewthread.php?tid=34&extra=page%3D1

sschristy

·PÁ¤j¤j¦^ÂСA¥Ø«eµ¥¯Å¤´¤Ó§C¡AµLªk¶KÀɮסA·|§V¤O´£¤Éµ¥¯Å¡AÁÂÁÂ

julianwic

§Ú¤]¬O¿n¤À¤£¨¬µLªkµo¤å¡A¥Ø«e¨C¤Ñ§V¤Sñ¨ì¤¤ XD

Andy2483

¦^´_ 1# sschristy


    ²q´ú±¡¹Ò:
¥H¿z¿ï¥X»Ý¨D¸ê®Æ¥[¤J¥Dªí®æ
20231006.zip (21.7 KB)

¤U¸ü¦¸¼Æ: 4

2023-10-6 16:12

Option Explicit
Sub ¥[¤J¥Dªí®æ()
Dim Crr(1 To 100, 1 To 6), Q, i&, j%, A, n&
Dim sh1 As Worksheet, sh2 As Worksheet, Frng As Range
For Each Q In Worksheets
   If Q.[F1] = "«Øij¼tµP" Then Set sh1 = Q
   If Q.[G3] = "«Øij¼tµP" Then Set sh2 = Q
Next
A = Array(1, 2, 4, 5, 6)
With sh1: .Activate
   If .AutoFilter Is Nothing Then
      .[A2].AutoFilter
      With ActiveWindow
         .FreezePanes = False: .SplitRow = 1: .FreezePanes = True
      End With
   End If
   If .[B65536].End(3).Row = 1 Then MsgBox "¨S¦³¸ê®Æ": Exit Sub
   For i = 2 To .[B65536].End(3).Row
      If Rows(i).EntireRow.Hidden = True Then GoTo i02
      n = n + 1
      For j = 0 To 4
         Crr(n, A(j)) = Cells(i, j + 2)
      Next
i02: Next
End With
With sh2.[B65536].End(3)(2).Resize(n, 6)
   .Value = Crr
   sh2.Activate
   .Select
End With
Set sh1 = Nothing: Set sh2 = Nothing: Set Frng = Nothing: Erase Crr
End Sub

Sub ²M°£¶µ¥Ø()
Dim Q
For Each Q In Worksheets
   If Q.[G3] = "«Øij¼tµP" Then Q.UsedRange.Offset(3, 0).EntireRow.Delete: Exit Sub
Next
End Sub