因为生成的单元格的格式为Text,且数据比较多的时候会显示"##################"
所以在填充数据的时候设置下单元格的属性:
Sub WriteValue(ByVal sheet As Excel.Worksheet, ByVal rowNum As Integer, ByVal text As String, ByVal pos As String) Dim cell As Excel.Range Set cell = sheet.Range(pos & rowNum) cell.NumberFormat = "General" cell.value = text Set cell = Nothing End Sub
本文介绍了一个Excel VBA子程序,用于解决在填充大量数据时单元格显示为##################的问题。通过设置单元格的NumberFormat属性为General,确保了数据能够正确显示。
1万+

被折叠的 条评论
为什么被折叠?



