根据是否已经有首字母创建名称的首字母，并添加一个点
根据是否已经有首字母创建名称的首字母，并添加一个点
提问于 2021-04-19 13:37:01
我希望有人能帮我解决这个复杂的问题！
这段代码检查E列中的名称，然后为E列中的每个名称创建D列中的第一个字母，并添加一个点。
例如，如果E列中有一个名为Dave的名称，则会在D列中创建D.。
例如，如果E列中有一个名为Dave Rick的名字，则在D列中创建D.E.。
所以我想在这段代码中改变的是，如果D列中已经有了第一个字母，或者第二个或第三个字母，那么除了放一个点之外，它不应该做任何事情。如果没有第一个字母，并且E列中没有第一个字母，它应该自动将E列中姓名的第一个字母放在D列中，并加一个点。
Dim cell As Range
lastRow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "E").End(xlUp).Row
For Each cell In ActiveSheet.Range("E2:E" & lastRow)
S = ""
If cell.Value <> "" Then
V = Split(cell.Value, " ")
For Each W In V
S = S & Left$(W, 1) & "."
Next W
cell.Offset(ColumnOffset:=-1).Value = S
End If
Next cell截图：
额外的截图：
回答 1
Stack Overflow用户
回答已采纳
发布于 2021-04-19 14:16:09
如果您的cell包含一个值，只需将空格替换为点并在末尾附加一个点即可。
For Each cell In ActiveSheet.Range("E2:E" & lastRow)
S = ""
If ActiveSheet.Range("B" & cell.Row) <> "" Then 'Adjust "B" to be the column with the initials
'If initals exist re-format them with dots.
Dim FixValue As String
FixValue = cell.Value
FixValue = Replace$(FixValue , ". ", ".") 'this will turn `D. Z. K.` into `D.Z.K.` as the other patterns
FixValue = Replace$(FixValue , " ", ".") & "." 'this will turn `D Z K` into `D.Z.K.`
cell.Value = FixValue
ElseIf cell.Value <> "" Then
'If no initals exist but a first name exists then turn name into initials
V = Split(cell.Value, " ")
For Each W In V
S = S & Left$(W, 1) & "."
Next W
cell.Offset(ColumnOffset:=-1).Value = S
End If
Next cell就这样。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/67163084
复制
![对象转JSON首字母大写[通俗易懂]](https://ask.qcloudimg.com/http-save/yehe-8223537/79b586b3b884b7a9a74e58178c29be72.png)
相似问题
JS名称首字母
名称首字母的Regex检查
更新表mysql首字母名称
Rails :如何根据首字母对名称列表进行分组？
需要帮助创建类以反向返回名称并返回首字母
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
