VBA Excel - 将大小写更改为正确大小写

Question

我是 Stackoverflow 的新手，所以希望我已经在正确的位置发布了这个问题。

我无法让我的代码在 VBA 中运行。我希望它选择列 D:F 直到最后一个单元格值。通过此选择，我想将单元格的大小写（它们当前为大写）更改为正确的大小写。

Dim Lastrow As Integer
Dim range As Variant

With Worksheets("Overdue PO")
    Lastrow = .Cells(Rows.Count, "D").End(xlUp).Row
    .range("D2:F" & Lastrow).Select
    range = Selection.Value
End With

Application.Proper (range)

它当前选择直到最后一行的范围，但它不会更改文本的大小写。运行代码没有报错。

提前致谢:)

Answer 1

试试这个：

Dim Lastrow As Integer

With Worksheets("Overdue PO")
    Lastrow = .Cells(Rows.Count, "D").End(xlUp).Row
    .Range("D2:F" & Lastrow).Value = .Evaluate("INDEX(PROPER(D2:F" & Lastrow & "),)")
End With

它几乎是即时的，不需要循环。

同时使用.Select 或.Activate 也会减慢代码速度，如果可能，直接引用单元格来避免它们。

Answer 2

试试这个

Sub test()

Dim Lastrow As Integer
Dim range As range
Dim c As range


With Worksheets("Overdue PO")
Lastrow = Columns("D:F").Cells.Find(What:="*", LookIn:=xlValues,   SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Row
    .range("D2:F" & Lastrow).Select
    Set range = Selection
End With

For Each c In range
    c.Value = Application.WorksheetFunction.Proper(c.Value)
Next c


End Sub

Answer 3

Application.WorksheetFunction.Proper(range) 应该这样做。有关WorksheetFunction 的文档，请参阅https://msdn.microsoft.com/en-us/library/office/ff834434.aspx

Answer 4

我想将它与命名范围一起使用，并提供了以下代码。也许它会帮助其他人：

Sub m_MakeProper()
'2/8/2018
'
Application.Volatile True
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Application.DisplayStatusBar = False
'
Worksheets("test").Activate
'
Dim LastRow                       As Long
Dim LastCol                       As Integer
Dim cell                          As Variant
Dim thiswksht                     As Worksheet
Dim thiswb                        As Workbook
'
'
Set thiswksht = ActiveSheet
If thiswksht.AutoFilterMode Then
    AutoFilterMode = False
End If
'
With thiswksht
    LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
    LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
End With
'
Cells(1, 1).Activate
Rows(1).find("Status").Select
Range(ActiveCell.Address, Cells(LastRow, ActiveCell.Column)).Select
Selection.Name = "c_P_Status"
With Range("c_P_Status")
    .Value = Application.Evaluate("INDEX(PROPER(" & .Address & "),0)")
End With
'
End Sub