分享一个EXCEL的VBA

lqs1234 · 发表于 2024-8-20 08:34:21

爱科技、爱创意、爱折腾、爱极致，我们都是技术控

您需要登录才可以下载或查看，没有账号？立即注册

x

本帖最后由 lqs1234 于 2024-8-20 08:35 编辑

有看懂的没？这样的VBA真是办公利器，可以减少不少工作程度，提高效率
Sub test()
Set Rng = [A1].CurrentRegion '选择A1所在的的连续数据区域的范围
h = 40
For Each cell In Rng '对于区域中的每一个单元格
If IsError(cell.Value) Then
      If cell.Column Mod 5 = 0 Then
         Cells(h, 4).Resize(1, 3).Value = cell.Offset(0, -4).Resize(1, 3).Value
         h = h + 1
      End If
End If
Next
End Sub

东西方不败 · 发表于 2024-8-20 09:25:55

上一个GIF动画演示图就好了

wzj9944 · 发表于 2024-8-20 09:42:20

我是看不懂，尝试用手机AI模型弄了下，贴出来请大神看看AI的解答水平怎么样：

该段代码的用途是将数据区域中每隔4列的列数据进行移动到新的位置，每移动一次列数据，行号增加1。其中，Rng是当前活动单元格所在的连续数据区域的范围，h是用于控制新位置的行号。

具体实现步骤如下：

1. 定义变量Rng为当前活动单元格所在的连续数据区域的范围，使用Set关键字进行设置。

2. 定义变量h为行号，初始值为40。

3. 使用For Each...Next循环结构，遍历数据区域中的每个单元格。

4. 对于每个单元格，如果该单元格的值不是错误值，则跳过不做处理。

5. 如果该单元格的列号能够被5整除，则将该单元格及其左边3个单元格的数据复制到新位置，即Cells(h, 4)开始的位置，并将行号h加1。

6. 循环结束后，完成每隔4列的列数据的移动。