標題: [發問] 求助高手，指定值搜尋後複製同列與下一列 [打印本頁]

---

作者: wsken    時間: 2013-1-26 02:59     標題: 求助高手，指定值搜尋後複製同列與下一列

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


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

[attach]14070[/attach]

---

作者: Hsieh    時間: 2013-1-26 21:38

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)