Question

excel 宏替换

想把下表所示L到AB列的里面的1替换成左侧的K列里数值
求个宏。谢谢。

Answer 1

 excel 宏替换可以按照以下步骤进行：
1、使用系统自带的替换功能需要输入待替换的字符串以及替换成的字符串，麻烦。所以写个macro，一个快捷键能够完成此操作。

2、按ALT+F11打开VB编辑器，在PERSONAL.XLS模块中写入如下代码如下：

SubReplaceATag()
   ForEachcInActiveCell.CurrentRegion.Cells
       IfInStr(c.Value,””)Thenc.Value = Replace(c.Value,””,””)
   Next
EndSub

3、ALT+F8打开【宏】对话框点【编辑】PerSONAL.XLS!RepaceATag，弹出【不能在隐藏工作簿中编辑宏。请选定“取消窗口隐藏”命令以显示工作簿。】在Excel【窗口】菜单中选择【取消隐藏(U)…】就不会弹出警告，宏也可以编辑运行了。

4、按ALT+R就去掉了所有的字符串。以后打开新的excel，直接ALT+F8，选择PerSONAL.XLS!RepaceATag，然后ALT+R就运行选定的宏。

Answer 2

excel替换

详情

• 官方服务
  • 官方网站

Answer 3

Sub 替换()

Dim b As String

For a = 1 To 100

b = Cells(a, "k")
Range("L" & a & ":AB" & a).Select
Selection.Replace What:="1", Replacement:=b, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next a

End Sub

1 to 100 表示 第1行到100行，可以根据实际改一下

Answer 4

Sub 替换()
Dim lngRow&, arrColK(), arrDst(), i&, j%
lngRow = Range("k" & Rows.Count).End(xlUp).Row
arrColK = Range("k1:k" & lngRow).Value
arrDst = Range("l1:ab" & lngRow).Value
For i = 1 To UBound(arrColK)
For j = 1 To UBound(arrDst, 2)
If arrDst(i, j) = 1 Then arrDst(i, j) = arrColK(i, 1)
Next j
Next i
Range("l1").Resize(lngRow, UBound(arrDst, 2)) = arrDst
CreateObject("Wscript.Shell").Popup "完成...", 3, "^o^", vbOKOnly
End Sub

Answer 5

不用宏就可以解决
选择L:AB列
CTRL+F
查找内容 1
点击"查找全部"
对话框上按CTRL+A
然后输入公式=$K1
按CTRL+ENTER结束
然后复制L:AB列,右键选择性粘贴为数值
简单快捷

追问

？CTRL+A之后怎么输入公式？