任何build议更直接的正文forms – Excel VBA

我正在创build一个工作簿，以便在非营利机构工作的客户服务部门自动执行格式化过程。 他们将复制/粘贴数据到工作簿，运行程序，然后复制/粘贴并导入到他们的数据库。

其中一个过程是将字段，例如名字和姓氏等，并将其放入“正确”或“标题”格式中。 下面的代码是目前我如何执行这个过程，但我不禁认为必须有一个更直接的方式。 我已经搜查，但无济于事。

请借我你的智慧！

'Proper Format Range("AS1:BA" & myLR).FormulaR1C1 = "=PROPER(RC[-28])" Range("BB1:BB" & myLR).FormulaR1C1 = "=PROPER(RC[-26])" Range("Q2:Y" & myLR) = Range("AS2:BA" & myLR).Value Range("AB2:AB" & myLR) = Range("BB2:BB" & myLR).Value Columns("AS:BB").Delete Shift:= xlToRight 

Answer 1

以防万一你想循环遍历每个单元格，使用这个，这很快…

 Sub Button1_Click() Dim MyLr As Long, rng As Range, c As Range MyLr = Cells(Rows.Count, "Q").End(xlUp).Row Set rng = Range("Q2:Y" & MyLr) For Each c In rng.Cells c = StrConv(c, vbProperCase) Next c End Sub