垂直合并单元格并将数据插入单元格

Question

我的问题是我有 4 个值。我需要在一个单元格中表示它们。

我需要垂直合并单元格（列）并将四个值呈现在另一个下方（从上到下），在合并的单元格之间有换行符。

我能够垂直合并单元格，但无法在单个单元格中显示四个值。

CellRangeAddress cellRangeAddress = new CellRangeAddress(2,5,5,5);
sheet.addMergedRegion(cellRangeAddress);

Answer 1

合并的单元格区域将它们定向到该区域中的第一个单元格。这意味着单元格样式以及单元格值。所以首先需要设置第一个单元格的单元格样式来换行。然后我们需要将所有单元格值连接到第一个单元格的单元格值中，该单元格值由换行符“\n”分隔。然后我们可以合并单元格。

例子：

SAMPLE.xlsx：

代码：

import org.apache.poi.ss.usermodel.*;
import org.apache.poi.ss.util.*;
import org.apache.poi.util.LocaleUtil;

import java.io.FileInputStream;
import java.io.FileOutputStream;
import java.util.Locale;

class ExcelConcatenateAndMerge {

 private static void concatenateAndMerge(
  Sheet sheet, CellRangeAddress cellRangeAddress, DataFormatter formatter, FormulaEvaluator evaluator, CellStyle cellStyle) {

  Row row = null;
  Cell cell = null;
  Cell firstCell = null;
  String cellValue = "";
  boolean first = true;
  for (CellAddress cellAddress : cellRangeAddress) {
   row = sheet.getRow(cellAddress.getRow());
   if (first) {
    if (row == null) row = sheet.createRow(cellAddress.getRow());
    firstCell = row.getCell(cellAddress.getColumn());
    if (firstCell == null) firstCell = row.createCell(cellAddress.getColumn());
    firstCell.setCellStyle(cellStyle);
    cellValue = formatter.formatCellValue(firstCell, evaluator);
    first = false;
   } else {
    if (row != null) {
     cell = row.getCell(cellAddress.getColumn());
     if (cell != null) {
      cellValue += "\n" + formatter.formatCellValue(cell, evaluator);
     } else cellValue += "\n" + "";
    } else cellValue += "\n" + "";
   }
  }

  firstCell.setCellValue(cellValue);

  sheet.addMergedRegion(cellRangeAddress);

 }

 public static void main(String[] args) throws Exception {

  Workbook wb  = WorkbookFactory.create(new FileInputStream("SAMPLE.xlsx"));

  Locale locale = new Locale("en", "US");
  LocaleUtil.setUserLocale(locale);
  DataFormatter formatter = new DataFormatter();
  FormulaEvaluator evaluator = wb.getCreationHelper().createFormulaEvaluator();
  CellStyle cellStyle = wb.createCellStyle();
  cellStyle.setWrapText(true);

  Sheet sheet = wb.getSheetAt(0);
  CellRangeAddress cellRangeAddress = new CellRangeAddress(2,5,5,5);

  concatenateAndMerge(sheet, cellRangeAddress, formatter, evaluator, cellStyle);

  FileOutputStream out = new FileOutputStream("SAMPLENEW.xlsx");
  wb.write(out);
  out.close();
  wb.close();

 }
}

SAMPLENEW.xlsx：

我的方法concatenateAndMerge 使用DataFormatter，因为源单元格内容可能不仅仅是文本，而是日期或其他数字。由于合并的单元格内容需要是串联字符串，因此之前单个单元格的不同内容应该出现在该串联字符串中，如之前在单个单元格中所示。这就是DataFormatter 的原因。我的方法使用FormulaEvaluator，因为源单元格内容也可能包含公式。

Answer 2

如果直接在 excel 中使用 VBA 是一种可行的替代方案，您可以编写一个宏来完成此任务。宏将保存在实际的 excel 文件中。

当 Excel 合并单元格时，它只保留第一个单元格的值，因此在合并这些单元格之前，请以所需格式连接它们的值。要为您的值添加换行符，请将 Chr(10) 连接到您想要换行的位置。

请记住，如果您以这种方式格式化数字单元格，单元格值将变为字符串，因此不能再用作公式中的数字。

下面的代码会做你想做的事*：

Dim finalValue As String
For Each c In Selection
    finalValue = finalValue & IIf((Len(finalValue) > 0) And (Len(c.Text) > 0), Chr(10), Empty) & c.Text
Next c

Selection.Clear
Selection.Merge
Selection.Value = finalValue

---

*注意：我选择了代码，以防您需要对可变单元格编号执行此任务，但它适用于任何 Range 对象

还请注意，除非您删除 IIf 中的 And (Len(c.Text) > 0) 条件，否则空单元格不会产生空行。但是通过这样做，将选择与已合并的单元格合并将创建与[the size of the merged cell] - 1一样多的空行@