excel 怎么在单元格内容自动加上一段文字不能用公式

小妖6662026-06-17 8:13

因为单元格内容不符合规范，导致上传失败，需要在省份如辽宁后自动加上代表处，才能上传成功，辽宁代表处。

现在用公式方式： A1 & "代表处"

或是设置单元格方式：A1 @ "代表处"

两种方式显示是正常了，但是上传后还是不识别。

用 VBA 就可以了，直接用AI生成代码，简单修改如下。

复制代码

Sub AppendTextToColumn()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim textToAppend As String
    Dim columnLetter As String
    
    Set ws = ThisWorkbook.Sheets("问题清单") ' 修改为你的工作表名
    columnLetter = "C" ' 修改为你要修改的列的字母
    textToAppend = "代表处" ' 你要添加的文字
    
    ' 设定要遍历的单元格范围，例如从第一行到最后一行
    Set rng = ws.Range(columnLetter & "1:" & columnLetter & ws.Cells(ws.Rows.Count, columnLetter).End(xlUp).Row)
    
    ' 遍历每个单元格并添加文字
    For Each cell In rng
        If Not InStr(cell.Value, textToAppend) > 0 Then
            cell.Value = cell.Value & textToAppend
        End If
    Next cell
End Sub

打开 Excel 的开发工具=》VB编辑器

双击左侧 sheet名新建vba文件，复制运行即可。