Excel VBA-如果单元格包含文本，请复制粘贴到另一行（间距不均匀）

我对VBA比较陌生，有人要求我想出一个宏（或者用给我的术语）来过滤工作簿中包含“总计”和“平均”的所有行在一个月的时间内，调整两个单元格的位置，使其与另一行保持一致。现在我可以正常过滤我需要过滤的内容，但问题在于我需要如何格式化它。从这个角度看，我需要它

e、 g

对这个

   COL1     | COL2     |    COL3       | COL4  |
Report Date:| xx/xx/xx | Service Group:| Repayments 
--------
Total       |  xx      |   xx          |  xx
--------
Average     |  xx      |   xx          |  xx

< IM >（除了是一个全新的VBA）的问题是如何使它“自动化”，我有一个想法，就是把一个宏分配给一个按钮，当按下它会剪切粘贴（然后删除空白）每个实例（服务组：）和（偿还）1行和超过3列。 因此，再举一个例子：在过滤器之后，行的编号是不同的，因此从位置开始：B6和C6向上移动一个，超过三个移动到位置E5和F5

---

对不起，我试图对TLDR进行冗长复杂的解释，但我想不出更好的方法来描述它。编辑1。此外，数据不连续

您的逻辑有一个良好的开端。我鼓励您这样做，因为您声明自己是VBA新手：启用“选项”->“自定义”功能区下的“开发人员”选项卡并选中“开发人员”。从此处，您的录制宏按钮将可用，位于左下角的“就绪”旁边。按那个按钮，然后做你想让它做的事。这样做的目的是记录您的操作，并将它们放入VBA中，以便您能够阅读和理解它们。然后按Alt+F11，或在“开发人员”选项卡下转到Visual Basic，这会将您带到编辑器以查看代码。你已经有任何代码可以共享了吗？我会给出我所拥有的，但这只是为了测试我的思维过程是否是sound Sub TESTTEST（）Dim SrchRng As Range，cel As Range Set SrchRng=Range（“B6:C6”），如果cel.Value为“”，那么cel.Offset（-1，3）.Value=cel.Value End If Next cel End Sub im lookin主要查找的是If-then语句，然后触发它以查找所需内容并将其移动到所需位置吗

   COL1     | COL2     |    COL3       | COL4  |
Report Date:| xx/xx/xx | Service Group:| Repayments 
--------
Total       |  xx      |   xx          |  xx
--------
Average     |  xx      |   xx          |  xx