jj369963

¦^´_ 2# kimbal


    Dear kimbal ª©¤j :
  
  Thanks your reply, but it didn't work.
1.¸ê®Æµ§¤Ö®É¡A¦³·h²¾¦ý¬O¥¼·h²¾§¹¥þ
2.¸ê®Æµ§¦h®É§¹¥þ¨S¤ÏÀ³

¦pªþÀÉ¡A½Ð°Ñ¾\

reply_1.rar (65.11 KB)

¤U¸ü¦¸¼Æ: 7

2013-11-1 22:11

jj369963

¦^´_ 3# GBKEE

sorryÁÂÁ´£¿ô¡A¦pªþÀÉ

¤]ÁÂÁª©¤jªº¿n·¥¦^À³

test_m.rar (62.78 KB)

¤U¸ü¦¸¼Æ: 5

2013-11-1 21:55

jj369963

¦^´_ 3# GBKEE


    Dear GBKEE ª©¥D¡G
   
              ÁÂÁ±zªº¦^À³¡A¦ý¬O¥X²{¤@ÂI°ÝÃD

            ¦pªG±z¦³ªÅ¡A¥i¥H¦A³Â·Ð±z¬Ý¤@¤U

         ·PÁÂ

¤U¸ü (23.46 KB)

2013-11-1 21:38

GBKEE

¦^´_ 1# jj369963

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim Sh(1 To 2) As Worksheet, i As Integer, R As Integer
   
4.     Set Sh(1) = Sheets("µL±b±K")
   
5.     Set Sh(2) = Sheets("µL§@µª")
   
6.      Sh(1).UsedRange.Clear
   
7.      Sh(2).UsedRange.Clear
   
8.     With Sheets("sheet0")
   
9.         Sh(1).Rows(1) = .Rows(1).Value
   
10.         Sh(2).Rows(1) = .Rows(1).Value
    
11.         .Activate
    
12.         i = 2
    
13.         Do While .Cells(i, "a").FormatConditions.Count = 2
    
14.             '2003ª© Àx¦s®æ³]©w®æ¦¡¤Æ¥i¦³3­Ó±ø¥ó¥i³]¤½¦¡
    
15.             .Cells(i, "a").Select          '»Ý¦b³]©w®æ¦¡¤ÆªºÀx¦s,¤è¥i­pºâ³]©w®æ¦¡¤Æ±ø¥ó¤½¦¡¬O§_¦¨¥ß
    
16.             If Application.Evaluate(.Cells(i, "a").FormatConditions(1).Formula1) Then       '­pºâ³]©w®æ¦¡¤Æ²Ä1­Ó±ø¥ó¤½¦¡¬O§_¦¨¥ß
    
17.                 R = Sh(1).UsedRange.Rows.Count + 1                                          '­pºâ UsedRange.Rows ªºÁ`¼Æ+1
    
18.                 Sh(1).Rows(R) = .Cells(i, "a").EntireRow.Value
    
19.             ElseIf Application.Evaluate(.Cells(i, "a").FormatConditions(2).Formula1) Then   '­pºâ³]©w®æ¦¡¤Æ²Ä2­Ó±ø¥ó¤½¦¡¬O§_¦¨¥ß
    
20.                 R = Sh(2).UsedRange.Rows.Count + 1
    
21.                 Sh(2).Rows(R) = .Cells(i, "a").EntireRow.Value
    
22.             End If
    
23.             i = i + 1
    
24.         Loop
    
25.     End With
    
26. End Sub

½Æ»s¥N½X

kimbal

¦^´_ 1# jj369963

¦Ñª©EXCEL¤£¯à¸gVBA¿ï¥X"±ø¥ó®æ¦¡"ªºÃC¦â.
¥i¥H¯uªí¥Î¥N½X¼g¥X

1. Sub test()
   
2. 
   
3.     Dim lngRowPwd As Long, lngRowNoAns As Long
   
4.     lngRowPwd = 1
   
5.     lngRowNoAns = 1
   
6.     For Each c In Range(Range("A1"), Range("A65536").End(xlUp))
   
7.         If Application.WorksheetFunction.CountA(Range(c, c.Offset(0, 1))) = 0 Then 'A:B
   
8.             Worksheets("µL±b±K").Rows(lngRowPwd).Value = Rows(c.Row).Value
   
9.             lngRowPwd = lngRowPwd + 1
   
10.         ElseIf Application.WorksheetFunction.CountA(Range(c.Offset(0, 7), c.Offset(0, 94))) <> 88 Then 'H:CQ
    
11.             Worksheets("µL§@µª").Rows(lngRowNoAns).Value = Rows(c.Row).Value
    
12.             lngRowNoAns = lngRowNoAns + 1
    
13.         End If
    
14. 
    
15.     Next
    
16. End Sub

½Æ»s¥N½X