复制自过滤细胞

Question

我正试图写一个脚本来做几件事。我使用宏进行基本操作，但我正在试图为其余的部分找到代码。我有一个由15列和许多行组成的工作表(此工作表由另一个程序生成，每次运行时都会更改)。我必须仔细研究一下，删除某些东西。我需要一个脚本

1. 删除第2行(它总是无用的)--已完成
2. 给列N的宽度为10-已完成
3. 使D列成为一个5位数的数字-已完成
4. 设置自动过滤器--已完成
5. 查找O列包含空白或"U“的所有行-已完成
6. 将原始工作表中的这些行剪切并粘贴到同一工作簿中的新工作表中。
7. 自动过滤，使M列从最小到最大依次排列
8. 有一个弹出式窗口询问最大值是多少
9. 在第一次粘贴之后，剪切并粘贴任何列M包含比您在弹出窗口中输入的数字更高的行。
10. 筛选列K只显示K列包含空白的行
11. 按日期排列，第N栏
12. 剪切并粘贴任何一行，其中N列包含六个月前的第一天(例如，今天，即2014年3月1日)。
13. 删除第二个工作表中除D和E以外的所有列。

我有所有动作的代码，我只需要弹出对话框中的最大值(上面的步骤8)和日期(上面的步骤12 )。我使用了5种不同的脚本。第一个在开始时执行格式化步骤(1-4)。第二种是"U“搜索(5-6)。第三个做最大搜索(7-9)，第四个做最终搜索(10-12)。第五种在第二张(13)上进行清理。

当我将对话框放入时，我会将对话框中给出的答案分配给变量，并在代码中使用它？我该怎么做？

Answer 1

你在这里要求很多步骤，我的建议是开始分解你的代码。你有13件你想要做的不同的事情，我会把每一件都写下来。在我看来，基于您的代码，您正在使用宏记录器来获得您想要的结果，然后反向工程宏记录器产生的内容和为您提供的VBA。

所以，这里有一个快速的步骤，可以让你走。

我会创建一个主类

Sub Main()
call Macro4()
End Sub


Sub Macro4()
'
' Macro4 Macro
'
'
'Delete Row 2
Rows("2:2").Select
Selection.Delete Shift:=xlUp
Range("N6").Select
'Show full dates
Columns("N:N").EntireColumn.AutoFit
'Engage Autofilter
Selection.AutoFilter
'Make the Account Number format 5 digits
Columns("D:D").Select
Selection.NumberFormat = "00000"
'Show All in Column O (single status) to be deleted
ActiveWorkbook.Worksheets("50100").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("50100").AutoFilter.Sort.SortFields.Add Key:=Range( _
    "O1:O4222"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
    xlSortNormal
With ActiveWorkbook.Worksheets("50100").AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Range("O5").Select
ActiveSheet.Range("$A$1:$O$10000").AutoFilter Field:=15, Criteria1:="=U", _
    Operator:=xlOr, Criteria2:="="
End Sub

为了给您更多的帮助，我需要您的标签名，工作表，您能张贴一份副本，我会看看明天。