如何能将使得单元格变成文本，使得右上角有绿色的标志

jiangjian1380

由于数据要求，需要将表格中的所有单元格都变成文本格式，而且是要使得单元格左上角有个绿色标志的数据才行，如果先转单元格格式再一个一个单元格点击，比较麻烦，能不用代码实现这个要求 工作簿1.rar (8.25 KB, 下载次数: 10)

2018-7-3 10:53 上传

点击文件名下载附件

上图画圈的数据才是正确的，不能在数字前面加文本逗号实现

JiaDongjun

在新的sheet，=Sheet1!C2&""，然后粘贴成值

jiangjian1380

JiaDongjun 发表于 2018-7-3 11:12
在新的sheet，=Sheet1!C2&""，然后粘贴成值

数据会很多，公式用容易死机，想用代码

lsdongjh

1. Sub Test()
   
2.     Dim rng As Range
   
3.     Dim arr As Variant, lngRows As Long, lngCols As Long
   
4.     Dim brr As Variant, lngRow As Long, lngCol As Long
   
5.     Set rng = Sheet1.UsedRange
   
6. 
   
7.     arr = rng.Value
   
8.    
   
9.     lngRows = UBound(arr)
   
10.     lngCols = UBound(arr, 2)
    
11.    
    
12.     ReDim brr(1 To lngRows, 1 To lngCols)
    
13.         For lngRow = 1 To lngRows
    
14.             For lngCol = 1 To lngCols
    
15.                 brr(lngRow, lngCol) = CStr(arr(lngRow, lngCol))
    
16.             Next
    
17.         Next
    
18.     rng.ClearContents
    
19.     rng.NumberFormatLocal = "@"
    
20.     rng = brr
    
21. End Sub

复制代码

一把小刀闯天下

'掰一个，是这意思吗

Option Explicit

Sub test()
  Dim arr, i, j
  arr = [a1].CurrentRegion.Value
  ReDim brr(1 To UBound(arr, 1), 1 To UBound(arr, 2)) As String
  For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
      brr(i, j) = arr(i, j)
  Next j, i
  With [a1].Resize(UBound(brr, 1), UBound(brr, 2))
    .NumberFormatLocal = "@"
    .Value = brr
  End With
End Sub

JiaDongjun

1. Sub 文本()
   
2. 
   
3.     r = Range("A1").CurrentRegion.Rows.Count
   
4.     c = Range("A1").CurrentRegion.Columns.Count
   
5.     For i = 1 To c
   
6.         Range(Cells(1, i), Cells(r, i)).TextToColumns Destination:=Cells(1, i), DataType:=xlDelimited, _
   
7.         TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
   
8.         Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
   
9.         :=Array(1, 2), TrailingMinusNumbers:=True
   
10.     Next
    
11.         
    
12. End Sub

复制代码

jiangjian1380

能否增加一个代码自动将行号补齐，1开始到最后一个