excel vba将内容设置为统一格式

1、设置字体，用以下代码：

With Selection.Font

.Bold = True

.Name = "宋体"

.Size = 16

End With

Range("P3").Select

2、复制格式用下面代码：

[b1].Select '复制B1格式粘贴到A列

Selection.Copy

Range("A:A").Select

Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Application.CutCopyMode = False

3、复制列宽用下面代码：

For t = 1 To [a1].CurrentRegion.Columns.Count

Cells(1, t).ColumnWidth = .Cells(1, t).ColumnWidth

Next t '复制所有有内容的列宽相同

选择你想要显示那个数据的一列，单击右键选单元格格式设置的那一项，然后选择日期，挑你想要的日期格式然后确定。之后数据写到单元格会自动转化成日期格式。\x0d\x0a\x0d\x0a用代码的话，\x0d\x0a 选择单元格范围，例如：\x0d\x0a Range("A1:A9").Select\x0d\x0a 指定范围的格式\x0d\x0a Selection.NumberFormatLocal = "yyyy/m/d@"

vba修改csv文件保存格式不变需要设置。

1、首先，把导出来的或者是其他同事给的csv文件打开，进行编辑。

2、编辑完成后，点击保存，或者文件中的另存为。快捷键就是ctrl+s。

3、保存后提示可能含有csv不兼容功能，是否保持这种格式。

4、d出保存到，可以选择桌面或者工作文件夹，然后命名文件名，这个时候的格式变成了xlsx。

5、保存完之后，桌面生成了另一个副本格式变成了xlsx，需要点击保存xlsx格式来保证格式的完整性。

---