写了一段VBA代码，用宏执行正常，但是使用按键执行会报错

低比热容

RTRT，

代码如下：

1. Sub AppendOrUpdateColumnMergeInfo()
   
2.     Dim selectedRange As Range
   
3.     Dim cell As Range
   
4.     Dim mergeCols As Long
   
5.     Dim originalValue As String
   
6.     Dim newValue As String
   
7.     Dim startPos As Integer
   
8.     Dim endPos As Integer
   
9.     Dim hasMergeInfo As Boolean
   
10.     Dim processedMerges As Object
    
11.     Set processedMerges = CreateObject("Scripting.Dictionary") ' 使用字典跟踪已处理的合并区域
    
12. 
    
13.     Set selectedRange = Selection
    
14.     'Set selectedRange = ActiveSheet.Range("C6:DC20")
    
15.    
    
16.     For Each cell In selectedRange
    
17.         If cell.MergeCells And Not processedMerges.Exists(cell.MergeArea.Address) Then
    
18.             ' 获取合并单元格横跨的列数
    
19.             mergeCols = cell.MergeArea.Columns.Count
    
20.             processedMerges(cell.MergeArea.Address) = True ' 标记此合并区域为已处理
    
21.             
    
22.             With cell.MergeArea.Cells(1, 1)
    
23.                 originalValue = .Value
    
24.                 ' 检测是否已含列数信息
    
25.                 startPos = InStr(originalValue, "(")
    
26.                 endPos = InStr(startPos, originalValue, "w)")
    
27.                 If startPos > 0 And endPos > 0 Then
    
28.                     hasMergeInfo = True
    
29.                 Else
    
30.                     hasMergeInfo = False
    
31.                 End If
    
32.                
    
33.                 If hasMergeInfo Then
    
34.                     ' 精确替换旧的列数信息
    
35.                     newValue = Left(originalValue, startPos) & mergeCols & "w)" & Mid(originalValue, endPos + 2)
    
36.                 Else
    
37.                     ' 添加新的列数信息
    
38.                     newValue = originalValue & " (" & mergeCols & "w)"
    
39.                 End If
    
40.                
    
41.                 .Value = newValue ' 更新单元格内容
    
42.             End With
    
43.         End If
    
44.     Next cell
    
45. End Sub
    

复制代码

laterite

没附件，看不懂代码，只好看是否有缘人帮你了

jiangxiaoyun

满满的ai风格

tanglf188

就是统计合并单元格占用几列啊，代码本身没啥问题，你说的按键是啥意思？

朝露孤烟

经测试，正常，F5或是按钮执行正常。插入按钮后，把代码除开第一行和最后一行外复制到按钮代码中，即可。