-
是整个工作簿还是整个工作表? 这是一个很大的区别。
在整个工作簿中替换。
sub 替换 ()。
arrb = split("A、B、C、D", ",")arrc = split("a,b,c,d", ",")for i = 0 to 3
for each sht in worksheetswhat:=arrb(i), replacement:=arrc(i), lookat:=xlwhole
nextnext
end sub
将工作表名称指定为"市场部"。
sub 替换 ()。
arrb = split("A、B、C、D", ",")arrc = split("a,b,c,d", ",")for i = 0 to 3
sheets("市场部"). what:=arrb(i), replacement:=arrc(i), lookat:=xlwhole
nextend sub
-
<>option explicit
子 transform()。
dim dict, arr, i, j, kdict = sheets(1).usedrange '字典关系表。
arr = sheets(2).usedrange '需要转换的表。
for i = 2 to ubound(arr)for j = 3 to 5
for k = 1 to ubound(dict)if dict(k, 1) =arr(i, j) and dict(k, 3) =arr(1, j) then
arr(i, j) =dict(k, 2)exit for
end if
next k
next j
next i
sheets(2).usedrange = arr '写回转换结果。
end sub
-
是的,VBA不仅可以替换**中的文本,还可以替换文本框、占位符、页眉和页脚以及艺术字中的字符。
批量更换只是一个循环。
具体来说,你可以录制一个宏,然后根据宏做一个循环。
-
提供这两个屏幕截图的文件易于编写和调试。
-
转换来解决这个问题。
供参考如下: 1.使用value函数将字符数转换为数字,value函数可以将表示该数字的文本字符串转换为数字。 它的句法结构是:value(text)。 value 函数只有一个参数文本。
2 将数字权重转换为具有四个算术版本字符的数字字体,您可以使用 0、0、1、1 将字符数转换为数字。
3 将数字转换为文本数字。
使用文本函数、文本函数的基本语法格式将数字转换为文本类型:文本(值、格式、文本)、值:数值、用于计算数值的公式或引用包含数值的单元格。
格式化文本:用于引用文本字符串的数字格式。
例如:c2 text(b2,0),它成为文本类型。
4.使用 &""将数字转换为文本数字,例如 a3=b3& “” 文本类型。
5.在数字类型数字前添加文本标识符“”或“”,例如 d2=“, c2=d2& b2,它将转换为文本类型编号。
-
这是最简单的。
使用 replace 语句:
例如:dim s as string
s = "axyzx"
s = replace(s,"x","abc")msgbox s
那么这次你得到:aabcyzabc
-
VBA 是 Mircosoft Office Excel 最重要的扩展功能之一,它具有 Wise 强大的 ** 和执行功能。 那么如何在Mircosoft Office Excel中用VBA**替换数据呢? 下面笔者将为您展示详细的操作流程。
1.右键单击,选择“新建”选项,然后单击“Mircosoft Office Excel 2007”选项以创建新的Excel文件。
请点击输入描述。
2.输入相关数据。
请点击输入描述。
3.选择界面顶部的“开发工具”选项,然后单击“宏”选项。
请点击输入描述。
4.输入VBA**的名称,然后单击“创建”按钮。
请点击输入描述。
5.写入指定的 VBA**。 在这里,作者想用“Aa1”替换销售“A1”区域。
请点击输入描述。
6.单击以插入按钮控件并将其命名为“替换”。
请点击输入描述。
7.选择“替换”控件,然后单击鼠标右键并选择“分配宏”。
请点击输入描述。
8.将写入的 ** 分配给按钮控件,然后单击“确定”按钮。
请点击输入**说明。
9.单击按钮控件一次,数据将自动替换。
-
答:我写了以下**,经测试可以满足更换要求。
第一个问题的答案如下图所示,在运行前,请确保 ** 中的记录行与文件数据一致,并且 **处于活动状态。
第二个问题的答案如下图所示,在运行前确认处于活动状态。
-
您的要求还不是很清楚。
既然你愿意付钱,建议找人帮你做,这样双方都有保障。
-
来吧,开始吧! 文件来了!