Excel /Excel_Excel表格标题基于单独工作表上的单元格(同一工作簿)

1szpjjfi  于 11个月前  发布在  其他
关注(0)|答案(1)|浏览(83)

我有一个表,需要14个列名(表3)被重命名的基础上,文本值在14个单元格(表1显示在一个单独的工作表(同一工作簿)的细胞在表1是选择列表。
对此如有任何帮助,将不胜感激。

dohp0rv5

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

字符串


的数据

  • Microsoft文档:*

ListObject.HeaderRowRange property (Excel)

相关问题