Question

如何在Excel中用vba语言表示一个单元格的字符串的格式

Answer 1

MsgBox ActiveCell.NumberFormat

追问

您好 请问可以用vba在Excel中实现将一个表格中所有单元格中字符串的格式复制到另一个表格中吗？ 两个表格的行数和列数都是一样的，而且对应的行标题和列标题都相同

追答

Sub CopyFormatsOnly()
    Sheet1.UsedRange.Copy
    Sheet2.UsedRange.PasteSpecial xlPasteFormats
End Sub

Answer 2

Range("I20").Select
ActiveCell.FormulaR1C1 = "123123rr323213"
Range("I20").Select
Selection.NumberFormatLocal = "@"

追问

您好 请问可以用vba在Excel中实现将一个表格中所有单元格中字符串的格式复制到另一个表格中吗？ 两个表格的行数和列数都是一样的，而且对应的行标题和列标题都相同

追答

可以的啊，先copy 再 paste就行了。
sheet1.range("A1:H22222").copy destination:=sheet1.range("A1")
就行了。

可以的啊，先copy 再 paste就行了。
sheet1.range("A1:H22222").copy destination:=sheet1.range("A1")
就行了。