Question

我正在使用microsoft excel 2013。

所以我有两张纸。＆＃34;例＆＃34;和＆＃34;总结＆＃34;。我的所有重要信息都在案例表上。我有没有办法在＆＃34; Summarize＆＃34;选择工作表，按下按钮并复制所有使用值＆＃34; RLH＆＃34;从案例到总结表？

我已将整行填充到N.我希望在按下按钮时将整行复制到摘要表中。＆＃34; RLH＆＃34;值在N（最后）列上。

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

非常感谢所有帮助。

Answer 1

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

分配给Button

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

希望这会有所帮助

您还可以通过以下链接MSDN Getting Started with VBA找到完整的帮助。

使用基于值的按钮从一张纸复印到另一张

1 个答案: