根据单元格值复制行并将其粘贴到新工作表中

时间:2017-06-17 21:47:26

标签: excel vba excel-vba

我一直在搜索与使用宏来复制行并粘贴到excel中的新工作表相关的帖子,但我似乎无法找到符合我要求的正确代码。这是一个开始的示例数据: Sample Data Sheet

我有一个包含7列的DATA表:

COLUMN A - Article #
COLUMN B - Description
COLUMN C - Lift
COLUMN E - Comp OH
COLUMN F - Requested
COLUMN G - Shipped
COLUMN H - SOS OH

我想创建一个宏,它将根据COLUMN F - 请求复制此工作表的内容,并将它们放在一个名为REQUESTED的新工作表上。

最终结果应该是这样的:

Sample of Results

1 个答案:

答案 0 :(得分:0)

这对你有所帮助 **strong text**

这是sheet1粗略数据 enter image description here 这是Reuested Formule enter image description here 这是Reay布局 enter image description here 启动宏

后,这是你的Ansver

您可以使用此宏来隐藏和取消隐藏

Sub hide()
Sheets("Requested").Select
    Dim r As Range, c As Range
    Set r = Range("F2:F10")
Application.ScreenUpdating = False
For Each c In r
    If Len(c.Text) = 0 Then
        c.EntireRow.Hidden = True
    Else
        c.EntireRow.Hidden = False
    End If
Next c
Application.ScreenUpdating = True
End Sub

Sub Unhide_All_Rows()
Sheets("Requested").Select

    On Error Resume Next
     'in case the sheet is protected
    ActiveSheet.Cells.EntireRow.Hidden = False
End Sub