将过滤后的数据复制到新工作表

Question

从以下过滤范围，我需要修改数据，并将其复制到新的工作表与Excel。

1. 从右侧获取引用值(例如：<= 9)下面的顶部3(最大值)值，并将数据w.r.t复制到最小扇区代码。例如:在图中:前3低于9(右侧)是2586,1523,124。因此，最小扇区代码为5，将数据从9-5 (扇区代码)整行复制到一个新的sheet.
2. similarly，从左侧获取引用值(9)上方的前3位数据，并将数据w.r.t复制到最高扇区代码。例如:在图3(左边)是1000,356,129，并复制从下面9-15获取的数据1.
3. 的引用值是动态的，将从单元格值提供。

。

​

​

最后的数据将类似于

​

​

我对VBA非常陌生，并且一直在学习。任何帮助都是非常感谢的。

Answer 1

检索用于确定操作的VBA代码的一个非常有用的工具是宏记录器，在带中，Developer -> RecordMacro，执行您的操作并停止记录，然后您可以检查为您记录的操作生成的代码。它不是最干净的代码，但您可以在那里找到您想要的特定操作的代码行。一旦您在尝试过的代码中遇到了一个具体的问题，您就可以在一些更具体的问题上寻求帮助，而不是期望有人会为您编写代码。

希望这有帮助

Answer 2

从宏记录器中，要对一组值进行排序，它将检索以下代码：

Sub Macro2()
    ActiveWorkbook.Worksheets("Hoja1").AutoFilter.Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Hoja1").AutoFilter.Sort.SortFields.Add Key:=Range( _
        "A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Hoja1").AutoFilter.Sort
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

你可以从那里开始。尝试宏记录器并记录引导uotput所需的用户操作。您还可以尝试记录一些小步骤，以了解从用户操作中记录的内容，以使用任何您喜欢的步骤。

尝试宏记录器，它是一个很棒的工具，如果您知道您想要对用户操作做什么，您只需要记录这些操作，然后稍微修改一下代码。

希望这能有所帮助。