Excel命名区域取值返回Variant(1 to 1)无法获取实际文本如何解决

Excel 命名区域调用Range.Value属性时，只要包含1个以上单元格，默认返回二维Variant数组，结构为(行索引, 列索引)，下标从1开始。你观测到的Variant(1 to 1)就是该数组的单元素结构，直接将数组对象和字符串比较会匹配失败。

• 方法1：指定数组下标取值
  确定需要取对应位置的单元格内容时，直接加二维下标即可，修改你的代码如下：

  ' 取命名区域第1行第1列的单元格值
  Select Case xlx.Range("Talk_codes").Value(1, 1)
    Case "Show_ID" ' 注意和实际单元格内容对齐，不要写成带空格的版本
      Logs.Show_Promo = Logs.Show_Promo + DateAdd("s", xlx.Range("Talk_Time").Value, Logs.Show_Promo)
  

• 方法2：强制取单个单元格内容
  如果命名区域仅包含1个单元格，可直接用Cells(1)定位首个单元格取值：

  Select Case xlx.Range("Talk_codes").Cells(1).Value
  

• 方法3：遍历区域内所有值
  如果需要匹配区域内任意位置的内容，可以遍历数组：

  Dim talkCodeArr As Variant, rowNum As Long
  talkCodeArr = xlx.Range("Talk_codes").Value
  ' 遍历所有行
  For rowNum = LBound(talkCodeArr, 1) To UBound(talkCodeArr, 1)
      Select Case talkCodeArr(rowNum, 1)
          Case "Show_ID"
              Logs.Show_Promo = Logs.Show_Promo + DateAdd("s", xlx.Range("Talk_Time").Value, Logs.Show_Promo)
              Exit For ' 匹配到就退出循环，按需添加
      End Select
  Next rowNum
  

你当前代码中判断的匹配值为"Show ID"（带空格），但你确认单元格实际存储的是Show_ID（带下划线），二者为不同字符串，修改时请对齐判断值和实际单元格内容，避免匹配失败。

内容的提问来源于stack exchange，提问作者Lorne Gottschewski