[發問] 求助高手，指定值搜尋後複製同列與下一列

wsken

求助板上高手，如何搜尋指定值後複製同列與下一列
圖示如下

下載 (83.6 KB)

2013-1-26 02:53

須找出當日的2個值的設定後，再把當日與次日的資料一起複製出來，
在板上爬了很多文，還是不會寫公式，請問有高手可以教學嗎?

Book1.rar (7.48 KB)

下載次數: 9

2013-1-26 02:55

Hsieh

回復 1# wsken

1. Sub ex()
   
2. Dim Rng As Range, Rng1 As Range
   
3. w = [W2] + 1: x = [X2] + 1
   
4. For Each a In Range([A3], [A3].End(xlDown))
   
5.     If a.Offset(, w) <> "" And a.Offset(, x) <> "" Then
   
6.        If Rng Is Nothing Then
   
7.        Set Rng = a.Resize(, 20)
   
8.        Set Rng1 = a.Offset(1).Resize(, 20)
   
9.        Else
   
10.        Set Rng = Union(Rng, a.Resize(, 20))
    
11.        Set Rng1 = Union(Rng1, a.Offset(1).Resize(, 20))
    
12.        End If
    
13.     End If
    
14. Next
    
15. If Not Rng Is Nothing Then
    
16.    Rng.Copy [W3]
    
17.    Rng1.Copy [W3].Offset(Rng.Rows.Count + 3)
    
18. End If
    
19. End Sub

複製代碼