Excel VBA，可根据另一个单元格中的文本剪切和粘贴标题下方的行

Excel VBA to cut and paste rows below headers based on text in another cell

提问人：SSM 提问时间：11/4/2023 更新时间：11/4/2023 访问量：10

问：

我正在尝试编写 VBA 代码来选择一行，然后根据列 I 中的文本字符串“CBL”剪切它并将其粘贴到相应的标题下， 电缆架和铁制品材料， 选择第 22 行（或者可能是选择粘贴行位置的更好方法）插入剪切行，然后对包含“CBL”的下一行再次执行， 将其粘贴到上一行下方，然后继续执行此操作，直到 Col I 中没有更多单元格。完成文本为“CBL”的单元格后，我想对 I 中包含“FIBER”的行执行相同的操作，将这些行粘贴到标题 FIBER MANAGMENT MATERIAL 下并继续，直到所有行都显示在正确的标题下。

在此处输入图像描述

我已经包括了我到目前为止尝试过的东西。以前的版本做了第一行，但在完成之前不会循环。我疯狂地改变了，从那以后就打破了它。我包含了我正在寻找的结果的片段。我是新手，感谢您的帮助。

在此处输入图像描述

在此处输入图像描述

循环行粘贴 剪切

评论

0赞 Community 11/5/2023
请澄清您的具体问题或提供其他详细信息以准确说明您的需求。正如目前所写的那样，很难确切地说出你在问什么。
0赞 SSM 11/6/2023
寻找 VBA 来搜索 col I（带有 CBL、RCK 和 IRONWORK 的 col;光纤管道;继电器架;等），然后根据列 I 中的文本剪切行并将其粘贴到相应的标题下。因此，当它在列 I 中看到文本字符串“CBL”时，它会剪切第 7 行并在第 2 行插入剪切行，然后在第 8 行看到下一个，然后将其粘贴到前一个下面，直到它用完行 文本字符串“CBL” 在第 I 行。然后，它将对列 I 中的测试字符串“FIBER”执行相同的操作，并将其粘贴到 Fiber Management Material 行下，然后粘贴到 Relay Rack Material 标题下的 RELAY Rack 项目，依此类推。
0赞 SSM 11/6/2023
希望它剪切列 I 中带有文本字符串“CBL”的行并将它们粘贴到 Cable Rack 和 Ironwork Material 标题下，然后对列 I 中文本字符串为“FIBER”的行执行相同的操作，将它们粘贴到 Fiber Management Material 标题下，等等。
0赞 SSM 11/6/2023
希望这会有所帮助。第二张图片显示了最终产品的外观示例。

答： 暂无答案

上一个：如何在列中每 n 行在两个值之间交替

下一个：Power Bi Python：如何用第 1 行减去第 121 行开头的行，并在新列中给出它