怎样在excel表某列所有单元后面添加一个字符串，例如'abc'?我不希望用到函数

发布网友 发布时间：2022-04-24 03:38

我来回答

共4个回答

热心网友 时间：2023-10-25 11:18

全选，单元格格式-自定义为@"abc"

热心网友 时间：2023-10-25 11:18

全选，单元格格式-自定义为@"abc"

热心网友 时间：2023-10-25 11:18

上面的方法也不错,也可以用VBA
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k
k = "abc"
For i = 1 To 25
If Right(Cells(i, 1), Len(k)) <> k Then
Cells(i, 1) = Cells(i, 1) & k
End If
Next
End Sub

热心网友 时间：2023-10-25 11:19

假设数字排列在A列 字符串在单元格B1

在C1中录入 =A1&$B$1 并下拉公式

热心网友 时间：2023-10-25 11:19

先输入abc然后拖动，再输入你的数据

热心网友 时间：2023-10-25 11:18

全选，单元格格式-自定义为@"abc"

热心网友 时间：2023-10-25 11:18

上面的方法也不错,也可以用VBA
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k
k = "abc"
For i = 1 To 25
If Right(Cells(i, 1), Len(k)) <> k Then
Cells(i, 1) = Cells(i, 1) & k
End If
Next
End Sub

热心网友 时间：2023-10-25 11:18

全选，单元格格式-自定义为@"abc"

热心网友 时间：2023-10-25 11:18

上面的方法也不错,也可以用VBA
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k
k = "abc"
For i = 1 To 25
If Right(Cells(i, 1), Len(k)) <> k Then
Cells(i, 1) = Cells(i, 1) & k
End If
Next
End Sub

热心网友 时间：2023-10-25 11:19

假设数字排列在A列 字符串在单元格B1

在C1中录入 =A1&$B$1 并下拉公式

热心网友 时间：2023-10-25 11:19

先输入abc然后拖动，再输入你的数据

热心网友 时间：2023-10-25 11:18

上面的方法也不错,也可以用VBA
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i, j, k
k = "abc"
For i = 1 To 25
If Right(Cells(i, 1), Len(k)) <> k Then
Cells(i, 1) = Cells(i, 1) & k
End If
Next
End Sub

热心网友 时间：2023-10-25 11:19

假设数字排列在A列 字符串在单元格B1

在C1中录入 =A1&$B$1 并下拉公式

热心网友 时间：2023-10-25 11:19

先输入abc然后拖动，再输入你的数据

热心网友 时间：2023-10-25 11:19

假设数字排列在A列 字符串在单元格B1

在C1中录入 =A1&$B$1 并下拉公式

热心网友 时间：2023-10-25 11:20

先输入abc然后拖动，再输入你的数据