Vba 使用基于值的按钮从一张图纸复制到另一张图纸

我正在使用microsoft excel 2013

所以我有两张床单。“案例”和“总结”。我所有的重要信息都在病例表上。有没有办法让我在“汇总”表上，按下按钮，将所有带有“RLH”值的单元格行从案例复制到汇总表

我把整行填到了N，我想在我按下按钮时把整行复制到汇总表中。“RLH”值位于N（最后一列）上

我知道如何创建按钮以及如何插入代码。我一直在谷歌上搜索，但似乎找不到适合我的东西

---

非常感谢您的帮助。

这里很简单。那会让你开始的

分配给

选项显式
子按钮（）
'//声明一个变量
暗cRng As范围
Dim rngA尽可能长
变暗rngB为长
淡而无味
将SCASE设置为工作表
尺寸汇总为工作表
'//设置图纸名称
设置sCases=图纸（“案例”）
Set sSummarize=表格（“汇总”）
“//在表格“Cases”中遍历每个单元格
“//并将值“RLH”处理为“汇总”
“//它从A列的最后一行开始并查找
rngA=sCases.Cells（Rows.Count，“N”）.End（xlUp）.Row
Cols=sCases.UsedRange.Columns.Count
对于SCASE.范围内的每个cRng（“A2:A”和rngA）
如果cRng.Value=“RLH”，则“感谢您的回复。关于如何只取出值为RLH的行，以及如何将它们复制到现有工作表中的任何指针？这就是您需要的吗？几乎是。如果我能告诉VBA只将值为RLH的单元格行复制到下一页。现在我什么都知道了。但是如果可能的话，我只想复制N列中RLH作为值的行。几年后我刚刚登录，发现我忘了回答你。看来这个解决方案有帮助。谢谢@0m3r
Option Explicit
Sub Mybutton()
    '// declare a variable 
    Dim cRng As Range
    Dim rngA As Long
    Dim rngB As Long
    Dim Cols As Long
    Dim sCases As Worksheet
    Dim sSummarize As Worksheet

    '// Set the sheets name
    Set sCases = Sheets("Cases")
    Set sSummarize = Sheets("Summarize")

    '// goes through each cell in Sheets"Cases"
    '// and copes the Value "RLH" to Sheets"Summarize"
    '// it starts from last row in column A & looks up
    rngA = sCases.Cells(Rows.Count, "N").End(xlUp).Row
    Cols = sCases.UsedRange.Columns.Count
    For Each cRng In sCases.Range("A2:A" & rngA)
        If cRng.Value = "RLH" Then '<<<<<<<<< Value = "RLT"
            rngB = sSummarize.Cells(Rows.Count, "A").End(xlUp).Row + 1
            sSummarize.Range("A" & rngB).Resize(1, Cols) = cRng.Resize(1, Cols).Value
        End If
    '// loop
    Next cRng

    Set sSummarize = Nothing
    Set sCases = Nothing
End Sub