关于VBA代码实现表格的自动合并

发布网友发布时间：2022-05-08 21:16

共3个回答

热心网友时间：2024-01-03 19:07

代码粘帖到thisworkbook 模块

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Column = 2 Then
Target.Resize(Target.Value).Merge
Target.Offset(0, -1).Resize(Target.Value).Merge
End If
End Sub追问请问
Target.resize(Target.value).merge
Target.Offset(0, -1).Resize(Target.Value).Merge
这两个句子是什么意思。
明白了就给你加分了

追答target 是你选中的单元格
target.value 是单元格里面的内容
resize() 以你选中的单元为顶点重新定义范围，如果单元格里面内容是3 就向下3格合并
merge 合并单元格
offset( 行，列) 位移用的，本来选的是B列合并，列位移个-1 那么A列也合并了

热心网友时间：2024-01-03 19:07

把你的表格发到57321522@qq.com来自：求助得到的回答

热心网友时间：2024-01-03 19:08

上传截图，注明要求