EXCEL中如何替换某指定列中的某个值呢

2024-12-21 12:48:29

推荐回答（5个）

回答1：

一、重复值不计数，在B1输入=SUMPRODUCT((COUNTIF($A$1:$A$10,$A$1:$A$10)=1)*(A1:A10"")) 如图：

二、重复值计1次数，在B1输入数组公式=SUM(1/COUNTIF(A1:A10,A1:A10)) 同时按Ctrl+Shift+回车完成，如图：

回答2：

如果想替换所有工作表的B列中的63，可以点击任意工作表标签——右键——点击“选中全部工作表”——选中B列——Ctrl+F——查找中输入“63”——替换中输入“80”——范围选“工作表”——点击“全部替换”按钮
按此步骤操作，所有工作表B列的“63”都替换成“80” ，其他列的数据不变

回答3：

试一下下面这个宏吧。EXCEL中按Alt+F8，输入宏名，点创建，将下列宏代码替换Sub－End Sub之间的所有内容（包括Sub...End Sub），关闭VBA窗口。然后在EXCEL中，按Alt+F8，点“替换”，再点“执行”，应该可以了。希望你满意并加分。
Sub 替换()
Dim datarange As Variant
Dim i, j As Long
Dim 查找列 As String
Dim 找某个值 As Integer
Dim 替换为 As Integer
Dim a As Double
查找列 = "B"
找某个值 = 63
替换为 = 80
For i = 1 To ActiveWorkbook.Worksheets.Count
datarange = Worksheets(i).Range(查找列 & "1").CurrentRegion.Value
For j = 1 To Worksheets(i).Range(查找列 & "1").CurrentRegion.Rows.Count
a = datarange(j, 1)
If a = 找某个值 Then
a = 替换为
datarange(j, 1) = a
End If
Next j
Worksheets(i).Range(查找列 & "1").CurrentRegion = datarange
Next i
End Sub

回答4：

针对只替换某一列中的数据，CTRL+H，选中要替换的某一列，填好查找和替换内容数据，点击全部替换，千万别先点击查找全部，再点击全部替换，那样的话整个工作表都被替换掉了，而不是选取的特定列。

回答5：

1/ 选中B列，并选择“查找”选项中的“按列”进行替换即可。
2/选中列中，同时按住"Ctrl"，可以一次选中不相临或相临的多列。