在Excel VBA中将NumberFormat Date应用于头等于“Date”的整个列
我想将一个TableStyle应用到一个导入的表,但显然TableStyle不能覆盖当前现有的格式。 但是,当我使用.ClearFormats,它也将清除“date”列的NumberFormat。
所以我决定做一个解决方法并使用.ClearFormats,但之后重新应用Date NumberFormat。 我唯一遇到的问题是,在“date”列中有一个空单元格的行,这使我无法使用.End(xlDown)。
所以在这个问题上:我怎样才能select一个范围/select,其中标题名称等于“date”,并将NumberFormat“dd-mm-yyyy”应用于整个列。 (PS。我无法对列号进行硬编码,因为date可能位于下一个导入工作表的不同列中。)
colDate = Application.Match("Date", Rows(1), 0) '<-- Assuming your header is at row 1 Columns(colDate).NumberFormat = "dd-mm-yyyy"
第一条语句在标题行中获取标签“Date”。 第二个date格式设置为该列的使用部分。
严格回答你的问题:
With Rows(1).Find(what:="Date", LookIn:=xlValues, lookat:=xlWhole) '<--| change "1" to your actual header row index .Parent.Range(.Cells, .Parent.Cells(.Parent.Rows.count, .Column).End(xlUp)).NumberFormat = "dd-mm-yyyy" End With
而如果你不想依靠ActiveSheet
:
With Worksheets("myTableWorksheetName").Rows(1).Find(what:="Date", LookIn:=xlValues, lookat:=xlWhole) '<--| change "myTableWorksheetName" to your actual sheet name and "1" to your actual header row index .Parent.Range(.Cells, .Parent.Cells(.Parent.Rows.count, .Column).End(xlUp)).NumberFormat = "dd-mm-yyyy" End With