Excel VBA通​​過可視過濾行循環

Question

我有一個帶有自動過濾器的Excel表。

在已過濾的表格中，我只有幾行過濾。

我的目標是強化所有可見的行以將數據複製到其他表單中。

我想要一種方式來收集一個變量與fisrt可見行號。

我的代碼草案：

Dim cnp As String 
Dim nome As String 
Dim filter_rng As Range 
Dim rw As Range 
Dim last_row As Long 'last visible data row 
Dim dest_row As Long 'row to paste the colected data 

Set filter_rng = Range("A5:Y" & last_row).Rows.SpecialCells(xlCellTypeVisible) 
'collect data 
For Each rw In filter_rng.SpecialCells(xlCellTypeVisible) 
    workshett(1).Activate 
    cnp = Range("a" & rw).Value 
    nome = Range("b" & rw).Value 

'copy data to another worksheet first data line is cell A2 
    Worksheet(2).Activate 
    Range("A" & dest_row + 1).Value = cnp 
    Range("b" & dest_row + 1).Value = nome 

Next rw 

Answer 1

GD若昂，

您的代碼包含了幾個錯誤，你提供一些額外的信息，讓我們來幫助你，而是要放在一個嘗試。

請參閱下面的代碼並與您的代碼進行比較，下面的代碼與您正在嘗試執行的操作最接近，並且經過測試和工作。

Dim cnp As String 
Dim nome As String 
Dim filter_rng As Range 
Dim rw As Range 
Dim last_row As Long 'last visible data row 
Dim dest_row As Long 'row to paste the colected data 

last_row = 200 
dest_row = 1 

Set filter_rng = Sheets(1).Range("A5:Y" & last_row) 

'collect data 
For Each rw In filter_rng.SpecialCells(xlCellTypeVisible) 
    'Worksheets(1).Activate 
    cnp = Sheets(1).Range("A" & rw.Row).Value 
    nome = Sheets(1).Range("B" & rw.Row).Value 

'copy data to another worksheet first data line is cell A2 
    'Worksheets(2).Activate 
    Sheets(2).Range("A" & dest_row + 1).Value = cnp 
    Sheets(2).Range("B" & dest_row + 1).Value = nome 

Next rw 

祝你好運！