如何把数字1.2.3替换成字母A.B.C。因为数据太大，所以替换不能很好的完成，求其它方法

ugeso

我有好多是由1.2.3组成的工作表，想要把1.2.3替换成A.B.C。。因为数据太多，几乎一个工作表全满了，所以替换起来会好慢，而且经常会卡死。。求其它方法。。谢谢了。。。上传一个小的工作表，只是我工作表中的一个很少的部份，因为太大了，上传不了完整的。。 1.rar (1.63 KB, 下载次数: 37)

2013-8-10 16:27 上传

点击文件名下载附件

笑着...两年过去

1. =CHAR(64+A1)

复制代码

选中A1：M20，按下ctrl + g -定位条件-空值-确定-在编辑栏里输入上面的公式，按下ctrl + enter，按此步骤一一操作方可一次完成

东亚五金

可以选定范围，分批替换

qy1219no2

选中A1：N20，执行“查找定位”——空值，确定，在编辑栏输入=CHAR(64+A1)，按CTRL+回车，OK！

dajiahaoxinku12

Sub 替换()
    arr = Range("a1:m100")
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
       For j = 1 To UBound(arr, 2)
       For i = 1 To UBound(arr)
          If arr(i, j) = 1 Then
             brr(i, j) = "a"
          ElseIf arr(i, j) = 2 Then
             brr(i, j) = "b"
          ElseIf arr(i, j) = 3 Then
             brr(i, j) = "c"
          End If
        Next
        Next
    Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

ugeso

dajiahaoxinku12 发表于 2013-8-10 17:07
Sub 替换()
    arr = Range("a1:m100")
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))

谢谢了。。

qy1219no2

1. Sub Rep()
   
2.     nR = [a65536].End(xlUp).Row
   
3.     nC = [iv1].End(xlToLeft).Column + 1
   
4.     If nR < 1 Or nC < 1 Then Exit Sub
   
5.     With [a1].Resize(nR, nC + 1)
   
6.         .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=char(64+rc[-1])"
   
7.         .Value = .Value
   
8.     End With
   
9. End Sub

复制代码

ugeso

dajiahaoxinku12 发表于 2013-8-10 17:07
Sub 替换()
    arr = Range("a1:m100")
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))

数据范围变成（a1：ia65536）时，提示内在溢出，要怎么修改呢？？

ugeso

dajiahaoxinku12 发表于 2013-8-10 17:07
Sub 替换()
    arr = Range("a1:m100")
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))

请再费心一下，谢谢了。。

dajiahaoxinku12

ugeso 发表于 2013-8-11 22:00
数据范围变成（a1：ia65536）时，提示内在溢出，要怎么修改呢？？

修改第一句代码  arr=range("a1:ia65536")