Excel：在“命令文本”中发送多个值

Excel：在“命令文本”中发送多个值

vba
Sub SendValuesToCommandText()
    Dim rng As Range
    Dim cell As Range
    Dim commandText As String
    
    ' 获取选定的数值范围
    Set rng = Selection
    
    ' 将每个数值添加到命令文本中
    For Each cell In rng
        commandText = commandText & cell.Value & ","
    Next cell
    
    ' 移除最后一个逗号
    commandText = Left(commandText, Len(commandText) - 1)
    
    ' 发送命令文本
    Shell "cmd.exe /k " & commandText
End Sub