excel - 如何将Excel单元格中的每个单词大写？

Question

我有大约 15k 行，每行有 3 列，类似于以下结构。

ID Title Description
0 A short title Some long description about this column

我想将 Title 列中的每个单词大写，以便它显示为:
简短标题

有办法实现吗？

Answer 1

=PROPER(B2)

该公式可以将字符串中每个单词的第一个字符大写。

编辑:如果您想手动执行此操作，请在列中复制公式来执行此操作。
您可以转到包含公式的单元格。当您将鼠标悬停在单元格上时，您会在右下角看到一个 + 号 - 当您看到它时双击右下角。

这会将公式复制到当前公式下方的行，直到发现其前面的列中有数据。

EDIT2:使用代码

Option Explicit
Sub ChangeAllCellsInThisColumnToProperCase(ByVal StartCell As Range)
Dim LastCell As Range
Set LastCell = StartCell.End(xlDown)

Dim data
Dim RangeToCover As Range

Set RangeToCover = Range(StartCell.Address & ":" & LastCell.Address)
data = RangeToCover.Value

Dim CountOfCells As Long
CountOfCells = RangeToCover.Cells.Count

Dim Counter, element
For Counter = 1 To CountOfCells
    element = data(Counter, 1)
    element = WorksheetFunction.Proper(element)
    data(Counter, 1) = element
Next

Range(StartCell.Address & ":" & LastCell.Address).Value = data
End Sub

EDIT3:手动执行(在@mehow的评论之后)- 在另一个空列(例如 F 列)中输入在 B2 上执行正确情况的公式。
- 复制公式，选择要应用此公式的其余单元格。
- 选择性粘贴 -> 公式
- 复制F列内容
- 转到 B 列的第一个单元格，执行选择性粘贴 -> 值。