Excel VB将0和1替换为字符串-但是字符串包含1和0，需要if语句来检查if length =1 then Replace else跳过
Excel VB是Excel的宏语言，可以通过编写VB代码来实现一些自动化操作。在Excel中，如果需要将0和1替换为字符串，但字符串中也包含1和0，可以使用if语句来检查字符串的长度，如果长度为1，则进行替换操作，否则跳过替换。
以下是一个示例的Excel VB代码：
Sub ReplaceZeroOne()
Dim cell As Range
Dim str As String
For Each cell In Selection
str = cell.Value
' 检查字符串长度
If Len(str) = 1 Then
' 替换0为"字符串1"
str = Replace(str, "0", "字符串1")
' 替换1为"字符串2"
str = Replace(str, "1", "字符串2")
' 更新单元格的值
cell.Value = str
End If
Next cell
End Sub在上述代码中，首先通过Selection获取选定的单元格范围，然后遍历每个单元格。对于每个单元格，将其值赋给变量str，然后使用Len函数检查字符串的长度。如果长度为1，则使用Replace函数将0替换为"字符串1"，将1替换为"字符串2"，最后更新单元格的值。
这是一个简单的示例，实际应用中可能需要根据具体需求进行修改。如果需要更多关于Excel VB的学习资源，可以参考腾讯云的Excel VB开发文档：Excel VB开发文档。
相关·内容
电子表格包含大约400(A-QE)列和10k行，这就是我不只使用查找和替换的原因。每一列代表一个不同的诊断。报告会在诊断说明的列标题下填充1或0。公司希望我将1和0替换为前面带有open(0)或closed(1)的诊断文本。问题是，当我将0替换为“开放式口咽部肿瘤，未指明”或类似文本时，当replace <em
浏览 11提问于2020-08-04得票数 0
我正在尝试创建一个函数来替换给定字符串中的另一个子字符串(而不使用方法替换)。我得到的是"AAew AAews"而不是"AAw AAws" new="" for i in range(0,len(string1)):
浏览 6提问于2022-10-11得票数 0
我遇到了一个类似于这样的问题:给定一个字符串s只包含字符'('，'‘)、'{’、'}‘、’‘和''，确定输入字符串是否有效。开放括号必须用相同类型的括号关闭。我解决这个问题的方法是将它放入一个for循环中，并将所有类似于“()”、"{}“的子字符串替换为""，一个空字符串。如果没有剩下的字符，那就应该是真的。=0
浏览 5提问于2022-04-14得票数 -2
回答已采纳
1回答
- 1, tl; x >= 0; x--) {
if (foo[x].replace(/"\s+$/, '"').charAt(foo[x].length - 1) == '"') {if ((tl = foo[x].replace(/^\s+"/, '"')).length > 1
浏览 0提问于2014-01-16得票数 0
我在重写字符串中两个“关键字”之间的字符串时遇到了一些问题。下面是有问题的regex模式：modify = Regex.Replace<=[0-9]{2}SM).+0([0-9]{1})0.+?(?=[0<
浏览 1提问于2013-07-04得票数 0
回答已采纳
我有一个字符串表示，就像(这将是一个字符串)我想将这个表达式转换为一个有效的lambda外泄，就像
Func<int, string> myfunc = (var
浏览 5提问于2013-04-16得票数 2
在试图通过VB.NET将我的表从Access导出到Excel时，我希望在我的excel工作表中以1s /0的形式显示真假值。下面是我用excel导出和写入数据的代码。If(.Cells(d, e).value = True, 1, 0)抛出一个错误“conversion from type string to Boolean is not valid”。Dim e As Integer = 1
浏览 3提问于2013-11-25得票数 1
回答已采纳
我将数据存储在表中名为supervisors_id的列中。本专栏中的数据结构如下：12、44、55、32、85、75、45。因此，我想在一行的supervisors_id列中获取ID的总数。我如何使用MySQL查询来做到这一点？
浏览 0提问于2018-09-09得票数 0
我试图使用包含多个字符串的IN语句执行亚音速查询。如果我手动对字符串进行硬编码，它就能正常工作。, "string2", "string3")qry.Where(table.Columns.mycolumn).In(combinedString)
但是，每当我尝试将字符串</em
浏览 1提问于2009-10-05得票数 0
下面的函数在数组中递归地搜索字符串： for (var i = 0; i < tree.length; ++i) {[ 'bulletlist', [ 'listitem', 'another test' ] ] ]
稍后我将使用它来替换字符串
浏览 2提问于2015-03-18得票数 0
回答已采纳
我正在用R重写我的vb.net代码，但是遇到了一个障碍。vb.net中的代码本质上是计算字符串中未出现在包含允许字符的字符串中的字符数。vb.net中的代码是： StringtoConvert="ABC"For i= 1 to len(StringtoConvert)
If InStr(1, strAllowedChars, StringtoCon
浏览 36提问于2021-04-13得票数 0
回答已采纳
我想要编写一个函数，根据输入字符串是否是字母来更改输入字符串的每个字符。如果是字母，则应将字符设置为“1”，否则设置为“0”。')function change(para){
let unicodenum=String.fromCharCode();
for (j=65; j<91; j++) {
if (unicod
浏览 1提问于2020-06-10得票数 0
回答已采纳
3回答
我使用python2.7，我有两个列表，一个是这样的形状：另一个文件存储在以这种格式存储的文本文件中：
t2 = [go:VB, [like:IN, [i:PR]],
浏览 1提问于2016-05-16得票数 0
回答已采纳
3回答
下面的方法接受字符串和模式，如果它们匹配，则返回true。A‘'.’匹配1个字符和“*”匹配0或更多(例如，expMatch("abc", "a.c")应该返回true)。我添加了一组打印语句，以查看我出错的地方，而且即使是str.length() == 1，if语句似乎也被跳过了。(pat.charAt(0));
System.ou
浏览 5提问于2015-02-09得票数 3
回答已采纳
1回答
编写函数，将传递的数字转换为二进制字符串。函数正在创建一个正确的二进制序列，但是当比较一个等于binaryIndex[0] (ex )的数字时，我的比较函数跳过了第一个索引。此步骤创建一个二进制有序数组，我将使用该数组来检查传递的参数： var x =1; var converted=1和0的
浏览 1提问于2017-06-28得票数 2
我的OCD已经超过了我，我正在浏览我的groovy代码库，将简单的字符串替换为双引号，并将其转换为单引号字符串。From: "([^$\"\n\r]+)"它捕获没有任何美元的字符串，但只部分跳过包含
浏览 1提问于2017-04-06得票数 1
回答已采纳
例如，他们可以输入然后是“e”和“a”，我的程序将打印这是我的代码，但在最后它打印出字符串索引的行外。System.out.println("Write something awesome.");System.out.println("Pick a letter from that awesome sentence.&qu
浏览 0提问于2013-09-04得票数 1
2回答
我使用SQL检索数据并在Excel中打开结果。它们被存储为度数格式的坐标，例如，用于LAT的DDMMSS和用于LONG的DDDMMSS。我需要数据作为时间值来执行如下所述的大圆距离计算：
我使用以下命令将
浏览 3提问于2014-04-04得票数 2
4回答
我能够将整数数组转换为字符串。) { }
Log.e("NUMBER", "number is :" + Number);11-07 10:03:17.577:错误/编号:编号为:1 1</e
浏览 0提问于2011-11-08得票数 2
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
