请求修改VBA代码实现一键生成指定格式数据至H1单元格

一、替换后的VBA宏代码 #

打开Excel的VBA编辑器（按Alt+F11），插入新模块，粘贴以下代码：

Sub GenerateCDZE()
    Dim account As String
    Dim totalAmount As String
    Dim validRows As String
    Dim currentMonth As String
    Dim currentYear As String
    Dim spaces As String
    Dim finalStr As String
    
    ' 固定20位账户
    account = "00799999000030003458"
    
    ' 计算G2及以下区域的求和值，转成分为单位并补前导零到13位
    Dim sumVal As Double
    sumVal = Application.WorksheetFunction.Sum(Range("G2", Range("G" & Rows.Count).End(xlUp)))
    totalAmount = Format(sumVal * 100, "0000000000000") ' 强制13位，不足补前导零
    
    ' 统计G2及以下区域的有效行数（非空行），补前导零到7位
    Dim rowCount As Long
    rowCount = Range("G2", Range("G" & Rows.Count).End(xlUp)).Rows.Count
    validRows = Format(rowCount, "0000000") ' 强制7位，不足补前导零
    
    ' 获取当前月份（两位数字）和年份（四位数字）
    currentMonth = Format(Date, "mm")
    currentYear = Format(Date, "yyyy")
    
    ' 14个空格
    spaces = String(14, " ")
    
    ' 拼接最终字符串
    finalStr = "*" & account & totalAmount & validRows & currentMonth & currentYear & spaces & "0"
    
    ' 写入到H1单元格
    Range("H1").Value = finalStr
End Sub

二、添加关联按钮的步骤 #

• 切换到Excel界面，点击顶部菜单栏的开发工具选项卡（若未显示，需在Excel设置中启用该选项卡）。
• 在控件组点击插入，选择表单控件分类下的按钮（窗体控件）。
• 在工作表上拖动鼠标绘制按钮，松开后弹出“指定宏”对话框，选中刚创建的GenerateCDZE宏，点击确定。
• 右键点击按钮，选择编辑文字可修改按钮名称，比如改为“生成CDZE字符串”。

点击该按钮即可自动生成符合要求的字符串并写入H1单元格。

内容的提问来源于stack exchange，提问作者snollygoster