Excel VBA自定义函数开发：按文本数字组合批量填充单元格

原代码核心问题 #

• 拼写错误：aplication应为Application（VBA对象名大小写敏感）
• 参数类型错误：num1、num2是计数用整数，应定义为Integer而非Double，避免浮点运算干扰
• 字符串拼接错误：误用TextJoin函数，此处直接用&拼接字符串即可，TextJoin用于合并多区域内容，不适合单字符串构造
• UDF权限限制：Excel工作表函数（UDF）默认不允许直接修改其他单元格内容，这是代码无法运行的关键原因

合规实现方案 #

方案1：改用Sub宏（推荐，符合VBA规范） #

批量填充单元格用宏过程更适配，执行逻辑直接清晰：

Sub MyFillFunction(word1 As String, num1 As Integer, word2 As String, num2 As Integer)
    Dim myRow As Integer, myCol As Integer
    Dim i As Integer, j As Integer
    
    ' 获取选中单元格的位置作为起始点
    myRow = Selection.Row
    myCol = Selection.Column
    
    For i = 1 To num1
        For j = 1 To num2
            myRow = myRow + 1
            Cells(myRow, myCol).Value = word1 & "-" & i & "-" & word2 & "-" & j
        Next j
    Next i
End Sub

使用步骤：

1. 选中要生成内容的起始单元格（比如B2）
2. 通过开发工具→宏调用该过程，传入参数"right",2,"up",3

方案2：数组型UDF（适配函数调用场景） #

若坚持用函数形式，可让函数返回数组，通过数组公式填充目标区域：

Function MyFunction(word1 As String, num1 As Integer, word2 As String, num2 As Integer) As Variant
    Dim resultArr() As String
    Dim idx As Integer, i As Integer, j As Integer
    
    ReDim resultArr(1 To num1 * num2, 1 To 1)
    idx = 1
    
    For i = 1 To num1
        For j = 1 To num2
            resultArr(idx, 1) = word1 & "-" & i & "-" & word2 & "-" & j
            idx = idx + 1
        Next j
    Next i
    
    MyFunction = resultArr
End Function

使用步骤：

1. 选中公式所在单元格下方的num1×num2个单元格（比如B3到B9，共6个单元格）
2. 输入公式=MyFunction("right",2,"up",3)
3. 按Ctrl+Shift+Enter以数组公式确认

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