使用宏将行从一个工作表复制到另一个工作表答案

【问题标题】：copying rows from one worksheet to another in excel using macro使用宏将行从一个工作表复制到另一个工作表
【发布时间】：2015-02-24 03:13:37
【问题描述】：

我有一个 Excel 工作表，其中包含一大堆行和几列。第 1 列包含制造商名称，第 2 列包含所有产品的产品代码，第 3 列包含描述等。我想要做的是复制与某些产品代码对应的行。例如：

**Manufacturer       Product code       Description**
abc                 B010                blah blah
dgh                 A012                
hgy                 X010                
eut                 B013                 
uru                 B014                 
eut                 B015              
asd                 G012            
sof                 B016
uet                 B016 
etc

有没有办法复制产品代码介于 B010 - B016 之间的行？也可能有双重/匹配的产品代码，复制它们也完全可以。

有道理吗？

对不起，我还没有 vba 代码可以放在这里。

提前致谢。

【问题讨论】：

将其复制到具有完全相同单元格引用的新工作表？或者产品abc，代码B010应该是第1行，产品eut，代码B013应该是第2行，等等？
很确定你可以使用excel的advanced filter来实现这个(vba ref) (vba example)
@LittleBobbyTables - 是的，它可以从新工作表的新行开始。那真的没关系。谢谢。

标签： vba excel

【解决方案1】：

这应该可以解决问题；它将 B010 和 B016 之间的任何 B 单元格值的 A:C 范围单元格复制到 Sheet2 中的下一个可用行。

Private Sub CopyRows()
    Dim lastrow As Long
    Dim r1 As Long, r2 As Long

    ' Get the last row in the worksheet
    lastrow = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

    r2 = 1

    For r1 = 1 To lastrow
        ' If the last three characters of the B cell are numeric...
        If IsNumeric(Right(Sheet1.Range("$B$" & r1).Value, 3)) Then
            ' If the first character of the B cell is "B", and the last three 
            ' characters are between 10 and 16 ...
            If Left(Sheet1.Range("$B$" & r1).Value, 1) = "B" And _
                CLng(Right(Sheet1.Range("$B$" & r1).Value, 3)) >= 10 And _
                CLng(Right(Sheet1.Range("$B$" & r1).Value, 3)) <= 16 Then

                ' ... copy the A-C range for the row to the next available row 
                ' in Sheet2
                Sheet2.Range("$A$" & r2, "$C$" & r2).Value = _
                    Sheet1.Range("$A$" & r1, "$C$" & r1).Value

                r2 = r2 + 1

            End If
        End If
    Next
End Sub

【讨论】：