如何统一修改Excel单元格数据

这两天在做公司的一个匹配串码的项目。遇到了一个读取excel的问题。就是读取时如果是多位数字,输出的结果就是浮点数,科学计数法,例如

8.67179E+14

。所以先在Excel里同意修改一列数据,然后再读取。


统一修改Excel单元格数据:

举个例子
一列数据
aaa 
bbb 
ccc 
ddd
现在在这列数据前统一加
WTF,修改后为
WTFaaa 
WTFbbb 
WTFccc
WTFddd

方法一:选中单元格,按ctrl_1(也可右击或调用菜单:...设置单元格格式)
-格式_自定义:"WTF"@ 或 WTF@
注:
"是英文引号,全角(”)会自动转换为半角,中文引号则会显示到文本里面
@代表单元格内输入的文本自身;重用多次,结果得到的文本也会重复多次;如果是数值数据,用#.

这样得到的结果,在编辑栏内仍然是原数据,即数据内容没变,只是格式变了。如果要实际内容,可以利用记事本复制回来或用ctrl_CC呼出剪贴板,直接点击剪贴板内的内容图标(选择性剪贴为文本)。
方法二:利用函数,(不妨设原数据在第一列,以A1开始)
在另一列首行的单元格输入 ="WTF"&A1;然后选中本列一些项,按ctrl_D向下填充; 
选中得到结果的这一列,ctrl_C;选中原数据列,按ctrl_Shift_+,复制新列,然后右击-选择粘贴-数值。 

注意:如果不需要转化为实际内容,则不需要进行选择性粘贴,直接在原数据前插入一列应用公式,不需要原数据,就将列宽设为0(也可隐藏它(ctrl_0))
8.67179E+14
VB是一种编程语言,可以利用它来批量提取多个Excel单元格数据。以下是一个简单的示例: ``` Sub 批量提取数据() Dim 文件路径 As String Dim 表格 As Workbook Dim 工作表 As Worksheet Dim 单元格 As Range Dim 行数 As Integer Dim 列数 As Integer ' 设置文件路径,这里假设多个Excel文件在同一文件夹下 文件路径 = "C:\文件夹路径\" ' 循环遍历所有文件 文件名 = Dir(文件路径 & "*.xlsx") Do While 文件名 <> "" ' 打开文件 Set 表格 = Workbooks.Open(文件路径 & 文件名) ' 遍历工作表 For Each 工作表 In 表格.Sheets 行数 = 工作表.Cells(Rows.Count, 1).End(xlUp).Row 列数 = 工作表.Cells(1, Columns.Count).End(xlToLeft).Column ' 提取数据 For Each 单元格 In 工作表.Range(工作表.Cells(1, 1), 工作表.Cells(行数, 列数)) ' 在这里处理单元格数据,可以根据需要做任何操作,比如复制到另一个工作表或保存到数组等 ' 示例只打印数据到Immediate窗口 Debug.Print 单元格.Value Next 单元格 Next 工作表 ' 关闭文件 表格.Close ' 继续下一个文件 文件名 = Dir Loop End Sub ``` 以上示例使用VB编写了一个名为"批量提取数据"的子过程。程序首先设置了一个文件路径变量,指向存放多个Excel文件的文件夹。然后,通过使用`Dir`函数遍历该文件夹下的所有.xlsx文件。对于每个文件,程序打开并遍历其的工作表。然后,使用`Rows.Count`和`Columns.Count`函数确定每个工作表的行数和列数。接下来,程序使用嵌套的`For Each`循环遍历每个单元格,可以在循环单元格进行任何需要的操作。 请注意,以上示例只是展示VB如何批量提取多个Excel单元格数据的一种方式,根据实际需求,您可能需要根据具体情况进行调整和修改
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值