[求助]EXCEL单元格中如何写包含某字符的条件函数？

cj0106

我想写一个判断A列各单元格的值是否包含(K)，如果包含，则将(K)变为000后单元格A的值填入B列对应单元格中，否则单元格B的值等于单元格A的值。如何写？求助个位大侠！！谢谢了！

例如：

单元格A1=551232(K)，那么B1=A1中的(K)变成000后的值，既551232000；

单元格A2=4470550，B2=A2=4470550

daley

B1公式:

=LEFT(A1,FIND("(K)",A1)-1)&"000"&RIGHT(A1,LEN(A1)-FIND(")",A1))

代码:

Sub 试试()
    With Sheets("工作表名称")
    Dim x As Long
    For x = 1 To .Range("A" & Rows.Count).End(xlUp).Row
    If InStr(.Cells(x, 1).Text, "(K)") > 0 Then
    .Cells(x, 2).Value = Left(.Cells(x, 1), WorksheetFunction.Find("(K)", .Cells(x, 1)) - 1) & "000" & Right(.Cells(x, 1), Len(.Cells(x, 1)) - WorksheetFunction.Find(")", .Cells(x, 1)))
    Else
    .Cells(x, 2) = "没有找到!"
    End If
    Next
    End With
End Sub

cj0106

谢谢2楼！

B1公式:

=LEFT(A1,FIND("(K)",A1)-1)&"000"&RIGHT(A1,LEN(A1)-FIND(")",A1))

对含有(K)的A1值能实现转换，但是对不含(K)的A1却不行，怎么才能实现已知A列求B列的值如下所示，的B列单元格公式。

A1=551232(K)，B1=551232000；

A2=4470550，B2=4470550；

A3=4875212(K)，B3=4875212000；

………，……

不好意思，我不会用代码，能否有简单一点的公式？谢谢！

syz105729913

=SUBSTITUTE(A1,"(k)","000")

公式下拉

cj0106

成功了，公式很简洁，谢谢4楼！！

又能学到一招，真高兴！谢谢大家！

借鉴2楼的B1公式，可以得到不区分K大小写的B1公式如下：

B1=IF(ISERROR(SEARCH("(K)",A1)),A1,(LEFT(A1,SEARCH("(K)",A1)-1)&"000"&RIGHT(A1,LEN(A1)-SEARCH(")",A1))))

上面不区分K大小写的公式是否还能更简单？请高手指教！

daley

QUOTE:

以下是引用cj0106在2008-7-11 10:45:39的发言：

成功了，公式很简洁，谢谢4楼！！

又能学到一招，真高兴！谢谢大家！

借鉴2楼的B1公式，可以得到不区分K大小写的B1公式如下：

B1=IF(ISERROR(SEARCH("(K)",A1)),A1,(LEFT(A1,SEARCH("(K)",A1)-1)&"000"&RIGHT(A1,LEN(A1)-SEARCH(")",A1))))

上面不区分K大小写的公式是否还能更简单？请高手指教！

用LOWER函数进行转换。

name004

哦，原来如此！

=SUBSTITUTE(lower(A1),"(k)","000")

lintf

学习了，高手们

zanyl

SUBSTITUTE很好！

阿尔萨司

感谢高手们，又学习了