我有一个表,需要14个列名(表3)被重命名的基础上,文本值在14个单元格(表1显示在一个单独的工作表(同一工作簿)的细胞在表1是选择列表。对此如有任何帮助,将不胜感激。
dohp0rv51#
HeaderRowRange
Option Explicit Sub UpdateTableHeader() If Sheets("Sheet3").ListObjects.Count > 0 Then Sheets("Sheet3").ListObjects(1).HeaderRowRange.Value = _ Application.Transpose(Sheets("Sheet1").Range("A1:A14").Value) End If End Sub
字符串
的数据
ListObject.HeaderRowRange property (Excel)
1条答案
按热度按时间dohp0rv51#
HeaderRowRange
更新表头字符串
的数据
ListObject.HeaderRowRange property (Excel)