excel2003条件自动合并单元格宏
当指定范围的行中（如5~800行），如果某行的D列为空时，则该行的C、D单元格自动合并，并靠左对齐
可以用以下代码实现：
Sub 合并单元格()
For i = 5 To 800
If Range("C" & i) <> "" And (Range("D" & i) = "" Or Range("C" & i) = Range("D" & i)) Then
Range("D" & i).ClearContents
Range("C" & i & ":D" & i).Merge
Range("C" & i & ":D" & i).HorizontalAlignment = xlLeft
End If
Next i
End Sub
注意：
1 对于同一行C、D列均为""[空]的，上述代码不实施合并；
如需要合并这种单元格，则上述 if语句 应改为：
If Range("D" & i) = "" Or Range("C" & i) = Range("D" & i)) Then
2 对于合并的C和D，D列中原有的内容[值或公式]，均不能保留；即合并后的单元格仅包含有原来C中的内容[值或公式]；
如有需要，请将整列D的内容，先行复制到另一列，比如F列，在有需要时，先取消某一行的合并，将该行F列的内容[值或公式]，复制回D列处即可。
这需要使用VBA。
函数与公式无法执行合并。也无法对自己进行操作。
下一篇：搭建ogg为什么要开启附加日志
上一篇：CAD2017文字下载后放在哪里
热门标签：