如何另一堆数字中字母的用1代替

821583204 · 发表于 2011-4-20 10:29

如题，如何将附件中各位是字母的替换为1，谢谢

[ 本帖最后由 821583204 于 2011-4-20 10:36 编辑 ]

wscjf · 发表于 2011-4-20 10:31

附件呢。。。

821583204 · 发表于 2011-4-20 10:37

不好意思，刚才忘了上传附件

dg831451 · 发表于 2011-4-20 10:45

复制到word替换后再复制回来。。

Zamyi · 发表于 2011-4-20 10:45

Public Sub test()
With CreateObject("VBSCRIPT.REGEXP")
  .Global = True
  .Pattern = "[a-zA-Z]"
  r = Range("a1", Cells(65536, 1).End(3))
  For i = 1 To UBound(r)
r(i, 1) = .Replace(r(i, 1), 1)
Next
  Range("a1", Cells(65536, 1).End(3)).NumberFormatLocal = "@  "
  Range("a1", Cells(65536, 1).End(3)) = r
  End With
End Sub

dsmch · 发表于 2011-4-20 10:54

新建 Microsoft Excel 工作表.rar (6.34 KB, 下载次数: 17)

excelfans · 发表于 2011-4-20 10:58

关注并学习。

ghfmac · 发表于 2011-4-20 10:58

这样的东西有意义没有？

wangexcel009 · 发表于 2011-4-20 11:22

原帖由 821583204 于 2011-4-20 10:29 发表
如题，如何将附件中各位是字母的替换为1，谢谢

{=RIGHT(SUM(IF(CODE(MID(A1,ROW($1:$7),1))>58,1,MID(A1,ROW($1:$7),1))*10^-(ROW($1:$7))),7)}

11005046 · 发表于 2011-4-20 11:40

原帖由 wangexcel009 于 2011-4-20 11:22 发表

{=RIGHT(SUM(IF(CODE(MID(A1,ROW($1:$7),1))>58,1,MID(A1,ROW($1:$7),1))*10^-(ROW($1:$7))),7)}

提供一种解法，跟你差不多
=TEXT(SUM(IF(MID(A1,ROW($1:$7),1)>"9",1,MID(A1,ROW($1:$7),1))*10^(7-ROW($1:$7))),"0000000")
回头在想想能否短些

		自动登录	找回密码
密码			免费注册