如何解决导入或复制/粘贴后,如何格式化存储为文本的数字作为单元格中的数字? Excel | VBA |解
首先,谢谢在座的所有人,这些帖子已经帮助我走了很远。
这伤了我的头,花了好几天解决。希望将其张贴在这里。
问题陈述
我必须每周将导出的CSV或Excel文档复制或导入到工作的Excel文档中。当我这样做时,所有数字都存储为文本,带有绿色小图标和错误符号,警告您数字可能存储为文本。
无法解决此问题。您可以突出显示单元格或列,并将数字格式设置为数字,但是在双击每个单元格之前,它仍然不会更改类型。我试图用VBA自动化此操作无济于事。不管是什么“ hack”,我都尝试强制转换或更改数字格式,而“逻辑”无效。
(我有一些C ++编码经验,但是VBA似乎是完全不同的野兽!:))
解决方法
解决方案
仅通过更改单元格编号格式类型,尝试用VBA修复此问题是不可能的。我尝试了很多事情,直到偶然发现了第二个解决方案post。
关键是在设置格式后将单元格值分配给它自己。
下面的子例程在工作表中进行迭代,并根据已知字符串是否匹配来确定相邻单元格中数字的数字格式。 (这是我看到的大多数其他痴迷者都在苦苦挣扎的问题陈述,因此将其留在这里,希望对任何新手都有帮助。)
Sub SelectiveFixRowFormat()
Dim longI As Long 'iterator for each row
Dim longLastRow As Long 'max used row in the sheet
Dim strSearchString As String 'String I am searching for that will have to have the number in the column next to it formatted correctly
strSearchString = "QuickBrownFox "
'find the last row with something in it.
lRow = Cells(Rows.Count,1).End(xlUp).Row
'main For-loop to loop through each cell.
For longI = 1 To lRow
If Cells(longI,"C") = strSearchString Then 'only if the text matches the offending entry,change formatting
Cells(longI,"E").NumberFormat = "0" ' This step does nothing to change the appearance. This is where I see most noobs like me stop completely perplexed.
Cells(longI,"E").Value = Cells(longI,"E").Value ' This step,which seems absolutely meaningless is what actually gets excel to update the cell's formatting from text to number,fix the appearance,and makes all my vlookups work.
End If
Next longI
End Sub
为了简化起见,如果您需要在复制/粘贴或导入例程后自动设置数字格式,则需要两个步骤。您必须指定单元格编号格式,然后他们才能为其分配单元格值以“触发”更改。
Cells(X,Y).NumberFormat = "0" 'Set Formatting,doesnt "do" anything
Cells(X,Y).Value = Cells(X,Y).Value 'fixes the display and cell value type so that functions can work on numbers.
这看起来很尴尬,我经过漫长而艰苦的搜索,找不到在任何地方都清楚解释的解决方案。
,- 在具有文本值的工作表上找到一个空白单元格,然后输入数字1。
- 选择此单元格,然后按Copy(或Ctl + C)
- 选择包含数字格式的数字的范围。
- 从功能区的“主页”选项卡中,单击“粘贴”>“选择性粘贴”。选中乘,然后按确定。
所有文本值都将转换为数字(乘以1)。真实文本不受影响。当然,也可以使用VBA执行相同的想法。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。