macrosinput值并相应地提取行

这是一个4000行* 200列的Excel表。

一列中有10个不同的名字。

我的macros的function是首先询问需要报告的人的姓名。 假设我说“Ram”，它将提取所有等于该名称的行，并将这些值保存在新的工作簿中，并将文件名保存为“Ram”

Answer 1

这是我将如何处理macros观：

' Prompt the user for a name ' Name = PromptForName ' Get your sheets (and create a new workbook) ' Set Src = ActiveSheet Set Book2 = Workbooks.Add Set Dst = Book2.Sheets(1) ' Copy headers from row 1 ' Src.Rows(1).Copy Dst.Rows(1).PasteSpecial ' Assuming column A is your name column ' For Each cell In Src.Range("A2:A" & Src.UsedRange.Rows.Count).Cells If cell.Value = Name Then Src.Rows(cell.Row).Copy Dst.Rows(2).Insert Shift:=xlShiftDown End If Next ' Specify path to save (with name) ' Book2.SaveAs Name & ".xls" 

Answer 2

我做了这样的事情…这有什么意义吗？

     Sub valueMacro（）

    昏暗的VariableSheetName作为string

     Workbooks.Add

     VariableSheetName = InputBox（“工作表名称”，“input工作表名称”，“”）

     ActiveWorkbook.SaveAs“T：\ 1AA \”＆VariableSheetName 

     Dim strvalue As String
     strvalue = InputBox（“inputFM的名称”）

    昏暗wksDisc作为工作表

     ''Set wksDisc = Sheets（“T：\ 1AA \”＆VariableSheetName）
     如果Target.Column = E且Target.Value = strvalue那么
        Target.EntireRow.Copy
        wksDisc.Paste Destination：= wksDisc.Cells（Target.Row，1）
        Application.CutCopyMode = False
     万一

    结束小组