表格中的“合并单元格”

Question

我有一张 Excel 表，其中包含许多由“职位编号”定义的实体。但是，每个职位需要多行，这意味着该列最终会有重复项，例如

有没有办法将每组相同的工作编号合并为一行？这是首选的布局。

注意：每个作业都保证有 3 行，因此它将始终遵循相同的模式。有办法做到这一点吗？

Answer 1

试试这个代码：

Sub Test() TitleRow = 1 'if title contain more than one row, change the value 1 to the actual number of rows i = 0 Application.DisplayAlerts = False Do Set StartCell = ActiveSheet.Range("A" & (TitleRow + 3 * i + 1)) Set EndCell = ActiveSheet.Range("A" & (TitleRow + 3 * i + 3)) With ActiveSheet.Range(StartCell, EndCell) .Merge .VerticalAlignment = xlCenter .HorizontalAlignment = xlCenter End With i = i + 1 Loop Until Range("A" & (TitleRow + 3 * i) + 1) = "" Application.DisplayAlerts = True End Sub

Answer 2

可以使用宏或 VBA 轻松完成，根据您的要求在 VBA 中编辑以下代码。

范围（“A1：A3”）。选择所选内容。Horizo​​ntalAlignment = xlCenter 。VerticalAlignment = xlBottom 。WrapText = False 。Orientation = 0 。AddIndent = False 。IndentLevel = 0 。ShrinkToFit = False 。ReadingOrder = xlContext 。MergeCells = False 以选择结束。与选择合并。Horizo​​ntalAlignment = xlCenter