Excel日期竖排怎么做？如何快速实现？

作者：佚名|分类：EXCEL|浏览：56|发布时间：2025-03-18 10:48:14

在Excel中，将日期以竖排的形式显示是一种常见的需求，尤其是在处理表格数据时，竖排日期可以节省横向空间，使表格更加紧凑。以下是一些方法，可以帮助你快速实现Excel中的日期竖排。

一、使用文本函数转换日期格式

1. 选中日期区域：首先，选中你想要竖排的日期区域。

2. 使用`TEXT`函数：在另一个空白单元格中，输入以下公式：

```excel

=TEXT(A1, "yyyy-mm-dd")

```

其中，A1是你选中日期区域中的第一个单元格。

3. 拖动填充柄：将光标放在公式单元格的右下角，当光标变成黑色十字时，向下拖动填充柄，直到覆盖所有需要转换的日期单元格。

这样，选中的日期就会以竖排的形式显示在新的单元格中。

二、使用`TRANSPOSE`函数

1. 选中日期区域：选中你想要竖排的日期区域。

2. 使用`TRANSPOSE`函数：在另一个空白单元格中，输入以下公式：

```excel

=TRANSPOSE(A1:A10)

```

其中，A1:A10是你选中日期区域。

3. 复制公式：选中包含公式的单元格，然后按下`Ctrl+C`复制公式。

4. 粘贴为值：在另一个空白区域，按下`Ctrl+V`粘贴，然后选择“粘贴值”。

这样，日期就会以竖排的形式显示在新的区域中。

三、使用透视表

1. 创建透视表：选中日期区域，点击“插入”选项卡，然后选择“透视表”。

2. 设置透视表字段：在弹出的“创建透视表”对话框中，选择放置透视表的位置，然后点击“确定”。

3. 拖动字段：在透视表字段列表中，将“日期”字段拖动到“行”区域。

4. 调整布局：根据需要调整透视表的布局，使日期以竖排形式显示。

四、使用VBA宏

如果你需要频繁地进行日期竖排操作，可以使用VBA宏来简化过程。

1. 打开VBA编辑器：按下`Alt + F11`打开VBA编辑器。

2. 插入新模块：在VBA编辑器中，右键点击“VBAProject（你的工作簿名称）”，选择“插入” > “模块”。

3. 编写宏代码：在模块中输入以下VBA代码：

```vba

Sub TransposeDates()

Dim sourceRange As Range

Dim targetRange As Range

Dim lastRow As Long

Dim lastColumn As Long

Dim i As Long, j As Long

Set sourceRange = Selection

lastRow = sourceRange.Rows.Count

lastColumn = sourceRange.Columns.Count

Set targetRange = Application.WorksheetFunction.Transpose(sourceRange)

For i = 1 To lastRow

For j = 1 To lastColumn

sourceRange.Cells(i, j).Value = targetRange.Cells(j, i).Value

Next j

Next i

End Sub

```

4. 运行宏：关闭VBA编辑器，回到Excel，按下`Alt + F8`，选择“TransposeDates”，然后点击“运行”。

Excel日期竖排怎么做？如何快速实现？

相关内容