如何避免在select-case语句中复制粘贴代码？

Question

我有一些select-case语句，它根据三个字母的缩写运行三个函数中的一个。有了几十个可能的acrynom，代码变得非常重复(参见下面的抽象示例)。有没有办法缩短这段时间，这样只有一个调用function1的情况，也只有一个调用function2的情况？

Select varAcronym
  Case "ABC"
    function1
  Case "DEF"
    function1
  Case "GHI"
    function1
  Case "JKL"
    function2
  Case "MNO"
    function2
  Case "PQR"
    function2
End Select

谢谢。

Answer 1

请务必在"Select“后添加"Case”

Select Case varAcronym
  Case "ABC", "DEF", "GHI"
    function1
  Case "JKL", "MNO", "PQR"
    function2
End Select

Answer 2

在case行上可以有多个case条件

Select varAcronym
  Case "ABC", "DEF", "GHI"
    function1
  Case "JKL", "MNO", "PQR"
    function2
End Select