excel 用宏将日期数字类型的列转换为字符文本列 c#导入excel 日期变成数字 怎么办?这是最好的解决办法
Sub 宏1()
Dim m As String
For i = 2 To 40000
If Cells(i, 3) <> "" Then
m = Cells(i, 3)
Cells(i, 3).Select
Selection.NumberFormatLocal = "@"
Cells(i, 3) = m
End If
Next
End Sub
Sub 宏1()
Dim AA As String
Dim BB As String
For I = 2 To 5000
If Cells(I, 1) <> "" Then
AA = Cells(I, 1)
BB = Cells(I, 7)
Cells(I, 1).Select
Selection.NumberFormatLocal = "@"
Cells(I, 7).Select
Selection.NumberFormatLocal = "@"
Cells(I, 1) = AA
Cells(I, 7) = BB
End If
Next
End Sub
Sub QUTONG()
For I = 2 To 2000
If Cells(I, 2) <> O Then
If Cells(I - 1, 2) = Cells(I, 2) Then
Rows(I + 1 & ":" & I + 1).Select
Selection.Delete Shift:=xlUp
End If
End If
Next
End Sub
对所有的单元格格式化:
Sub format_string()
Dim m As String
For i = 1 To 60000
For j = 1 To 28
If Cells(i, j) <> "" Then
m = Cells(i, j)
Cells(i, j).Select
Selection.NumberFormatLocal = "@"
Cells(i, j) = m
End If
Next
Next
End Sub