返回列表 上一主題 發帖

[發問] 複製符合條件整列資料

[發問] 複製符合條件整列資料

複製符合條件整列資料
1. 條件:B欄值=ABC or QWE及C欄值=AA or BB及E欄值不等於空格
2. 將「工作表1」符合條件整列資料複製到「工作表2」
3. 「工作表2」資料依據A欄值排序,由小到大。
敬請指導
謝謝
AB.rar (8.89 KB)
100 字節以內
不支持自定義 Discuz! 代碼

回復 1# b9208
  1. Sub ex()
  2. Dim A As Range, Rng As Range
  3. With 工作表1
  4. Set Rng = .[A1:G1]
  5. For Each A In .Range("E:E").SpecialCells(xlCellTypeConstants)
  6.   If (A.Offset(, -3) = "ABC" Or A.Offset(, -3) = "QWE") And (A.Offset(, -2) = "AA" Or A.Offset(, -2) = "BB") Then Set Rng = Union(Rng, A.Offset(, -4).Resize(, 7))
  7. Next
  8. With 工作表2
  9. .Range(.[A3], .[A3].End(xlDown).Offset(, 6)).Clear
  10. Rng.Copy .[A3]
  11. .Range(.[A3], .[A3].End(xlDown).Offset(, 6)).Sort key1:=.[A3], Header:=xlYes
  12. End With
  13. End With
  14. End Sub
複製代碼
學海無涯_不恥下問

TOP

回復 2# Hsieh
Dear Hsieh
非常感謝您的指導
執行上沒有問題
:)
100 字節以內
不支持自定義 Discuz! 代碼

TOP

回復 2# Hsieh 請教版主,如果是[日期區段](工作表3),如何處理,感恩.

AB1.rar (17.98 KB)

杜小平

TOP

回復 4# dou10801

是這樣嗎? 請測試看看,謝謝

Sub test()
Dim Arr, T1, T2
With 工作表3
    Set Rng = .[A1:G1]
    T1 = .[j2]: T2 = .[k2]
    Arr = .Range(.[a1], .[g65536].End(3))
    For i = 2 To UBound(Arr)
        If Arr(i, 2) >= T1 And Arr(i, 2) <= T2 Then
        Set Rng = Union(Rng, .Cells(i, 1).Resize(, 7))
        End If
    Next
End With
With 工作表2
       .Range(.[A3], .[A3].End(xlDown).Offset(, 6)).Clear
       Rng.Copy .[A3]
End With
End Sub

TOP

回復 5# samwang samwang前輩感恩,可以運作,其他延伸功能自行測試學習,謝謝.
杜小平

TOP

隨意窩 "EXCEL迷"  blog  或https://blog.xuite.net/hcm19522/twblog
已收集8500篇 EXCEL函數

TOP

        靜思自在 : 時時好心就是時時好日。
返回列表 上一主題