VBA编程

最新推荐文章于 2025-06-13 09:44:29 发布

原创

最新推荐文章于 2025-06-13 09:44:29 发布 · 980 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#VBA #数据处理

本文介绍了如何使用VBA编程来处理Excel表格，具体任务是遇到单元格中的空格时，跳转到下一行并将代号加一。通过示例代码展示了实现过程，并讨论了`Right`函数的限制，提出利用表格函数与VBA结合的改进思路。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

剔除表格中的空格并修改下一行单元格

（关于20块钱的一个记录）
真的灰常遗憾，又错过了20块钱。。。本来五分钟编出来对方有偿，可惜没编出来。要求，某一列单元格包含包含多个空格，要求遇到空格后跳转到后一单元格并且其代号加一。如下图所示
在这里插入图片描述

代码实现

使用VBA编程实现，代码如下

Sub peng()
    Dim g%, t%
    Dim k As String
    g = 0
    For i = 1 To 15 Step 1
        k = Cells(i, 1)
        t = Len(k) - 2
        If t = 1 Then
          s = Right(k, 1) '因为这里的right函数不支持变量第二变参数为变量损失了20
        ElseIf t = 2 Then
            s = Right(k, 2)
        ElseIf t = 3 Then
            s = Right(k, 3)
        End If
        s = Val(s)
        If k = "" Then
            g = g + 1
        Else:
            s = s + g
            Cells(i, 1) = "LX" & s
        End If
    Next i
End Sub

结果：
在这里插入图片描述