Sub hb()
Dim n
n = 3
For i = 3 To 18
If Range("b" & i) <> Range("b" & i + 1) Then
Range("b" & n & ":b" & i).Merge
n = i + 1
End If
Next
End Sub
Sub hb()
Dim n
n = 3
For i = 3 To 18
If Range("b" & i) <> Range("b" & i + 1) Then
Range("b" & n & ":b" & i).Merge
n = i + 1
End If
Next
End Sub
本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:/a/100788.html
如若内容造成侵权/违法违规/事实不符,请联系我们进行投诉反馈qq邮箱809451989@qq.com,一经查实,立即删除!