基于单元格值复制行并将其粘贴到新工作表

-1

我一直在搜索与使用宏复制行并粘贴到Excel表中的新工作表相关的帖子，但我似乎无法找到正确的代码符合我的要求。这里有一个样本数据开始： Sample Data Sheet 基于单元格值复制行并将其粘贴到新工作表

我有一个包含7列的数据表：

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

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

最终的结果应该是这样的：

Sample of Results

来源

2017-06-17 coteb

如果你在看所有的其他职位后开发的代码不能正常工作，请它列入你的问题并告诉我们什么是不正常的，因为你认为它会。然后我们可以帮助您解决问题。 – YowE3K

如果表中的值满足条件，可能会出现[从表中复制行的Vba宏]（https://stackoverflow.com/questions/12177125/vba-macro-to-copy-row-from-table-if-value-在表中符合条件） – lebelinoz

只需使用一个过滤器，并复制可见单元格。如果您必须使用VBA，请在录制宏时录制一个宏。 –

这可以帮助你

这是工作表Sheet1粗略数据这是Reuested一级方程式这是Reay版式 th是被你的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

来源

2017-06-17 22:51:28

基于单元格值复制行并将其粘贴到新工作表

回答

相关问题