格式化Word 2016表格单元格

Question

在Word中开发规划工具，我为培训课程的每个会话使用一个表。我想根据列来格式化单个单元格（每个单元格有两种颜色选项）。出于布局目的，合并了一些标题行单元格。我希望我的用户右键单击“P”标题下面的单元格，然后选择活动类型，然后将其颜色编码为单元格背景阴影。

因此，我的Range对象返回运行时错误5992，如“由于表具有不同的列数，此集合不提供对各个列的访问”

Sub Makro2()
  Dim minCelle As Range
  Selection.SelectCell
  Set minCelle = Selection.Range
  minCelle.Text = minCelle.Columns.First.Index
  ' Here the error occurs. As a starting point, I want VBA to insert col#
End Sub

一旦我建立了列号，我就可以使用条件着色。

我在Word 2016中工作，但如果可能的话，我希望有一些向后兼容性。我在MWE上试了一下：一个Word 2016 .docm文档，其中包含一个两行三列表，第一行合并了两个单元格，并包含一个带有上述代码的宏。

Answer 1

从下面的@CindyMeister实施更正，我得到实际的列号。

=VLookup(D2, Sheet1!$A:$B, 2, False)