投诉建议

首页 > 怎样快速把多个数字前加上撇号变成文本格式

怎样快速把多个数字前加上撇号变成文本格式

发布时间：2015-01-11 14:58:47 来源：文档文库

小中大

字号：

手机查看

注：本文以Excel2003为基础，2007版或2010版可能位置不一样，自己试着找一下。

1.“工具”－“宏”－“宏”。如下图：

2.弹出对话框如下图：

3.在宏名下面的文本框中输入“WenBen”，点“创建”。

4.弹出宏的编辑器。

5.把以下蓝色代码复制到上图通用下面的编辑位置。注意，把原来自动产生的那两行程序删掉，就是“Sub WenBen()”和“End Sub”这两行，因为要复制的程序有这两行了，不能重复。

Sub wenben()

Dim i As Integer

Dim ChuZhi As Integer

Dim ZhongZhi As Integer

Dim Lie As String

ChuZhi = InputBox("输入要开始的行号，一定要半角英文的数字。")

ZhongZhi = InputBox("输入结束的行号，一定要半角英文的数字，比开始的行号要大")

Lie = InputBox("输入列号，一定要半角英文的字母。")

For i = ChuZhi To ZhongZhi

Range(Lie & Trim(Str(i))).Value = "'" & Range(Lie & Trim(Str(i))).Value

6.再点第一步那个“工具”－“宏”－“宏”。

这时弹出的对话框如下：

7.点“Wenben”点“执行”。

8.在上图中的对话框中输入起始行数。点确定，别输错。

9.上图输入结束行数。点确定

10.上图输入列号，比如“A”或是“B”等。点“确定”。收工。

文档为doc格式

相

关

案

例