excel - 如何在最后一个值之前用逗号和 "and"拆分一系列值？

Question

我正在尝试编写一个代码，允许用户从 A1 向下输入项目列表，并将它们全部显示为一个带有正确逗号和“和”位置的句子中的列表。

例如，对于以下内容，

 A1. Shoe
 A2. Tree
 A3. Box
 A4. Toy

我想要一个消息框显示“您已输入 Shoe、Tree、Box 和 Toy”。

我完全不知道如何让它识别在哪里放置“和”。

任何帮助表示赞赏。

我尝试使用一些 For 语句来完成此操作，但考虑到列表中可能有不同数量的项目，我在确定将“和”放在列表中的位置或方式时遇到了困难。

谢谢

Answer 1

你可以试试这段代码:

Sub Sample()

    ' Define object variables
    Dim listRange As Range
    Dim cellValue As Range

    ' Define other variables
    Dim itemsQuantity As Integer
    Dim stringResult As String
    Dim separator As String
    Dim counter As Integer

    ' Define the range where the options are located
    Set listRange = Range("A1:A4")

    itemsQuantity = listRange.Cells.Count

    counter = 1

    For Each cellValue In listRange

        ' Select the case for inner items, penultimate and last item
        Select Case counter
        Case Is < itemsQuantity
            separator = ", "
        Case Is = itemsQuantity - 1
            separator = " And "
        Case Else
            separator = vbNullString
        End Select

        stringResult = stringResult & cellValue.Value & separator

        counter = counter + 1

    Next cellValue

    ' Assamble the last sentence
    stringResult = "You have entered " & stringResult & "."

    MsgBox stringResult

End Sub

自定义:
' 定义选项所在的范围部分

干杯!