excel VBA求一个将不规则区域复制，然后有规划地粘贴

Answer 1

在Excel中，VBA代码被用来实现自动化操作。本文将介绍一个利用VBA实现的功能，即按照特定规则复制不规则区域并粘贴至新工作表中。具体代码如下：
首先定义一个名为“按钮1_单击”的子程序：
Sub 按钮1_单击()
设置一个计数器变量i，并将其初值设为0。
使用条件判断，若单元格(1,5)不为空，执行以下操作：
将单元格(1,5)所在区域进行复制操作。
粘贴至新工作表的第i * 9 + 1行、第1列的位置。
将计数器变量i加1。
接着使用循环结构，从第2行开始遍历至工作表最顶部的非空单元格：
判断当前单元格及上一行单元格是否为空，且当前单元格不为空。
执行复制操作，将当前单元格所在区域粘贴至新工作表的第i * 9 + 1行、第1列。
将计数器变量i加1。
循环执行直到遍历完整个工作表。
通过上述代码，我们可以实现将Excel中不规则区域的数据，按照特定规则复制并粘贴至新工作表中，以达到自动化处理数据的目的。这种功能适用于数据整理、迁移等场景，能够提高工作效率。