Excel VBA：如何将InputBox选择的单元格区域数据存入List？

首先明确：r.Copy的Destination参数仅接受单元格Range对象，无法直接将数据复制到List集合中，这是你之前尝试失败的核心原因。要将区域数据存入List，需要遍历单元格逐个添加，以下是两种可行方案：

方案1：使用ArrayList（灵活易用，支持排序、查找等操作） #

方式A：前期绑定（需引用库） #

1. 打开VBA编辑器，点击「工具」→「引用」，勾选「Microsoft Scripting Runtime」
2. 使用以下代码替换原逻辑：

Private Sub btInsert_Click()
    Dim r As Range
    Dim cell As Range
    Dim dataList As ArrayList ' 前期绑定需先引用库
    
    On Error Resume Next
    Set r = Application.InputBox(prompt:="Enter a range", Type:=8)
    On Error GoTo 0
    If r Is Nothing Then Exit Sub
    
    Set dataList = New ArrayList
    ' 遍历区域内的每个单元格，添加值到List
    For Each cell In r
        dataList.Add cell.Value
    Next cell
    
    ' 示例：验证List中的数据（可根据需求替换为后续逻辑）
    Dim item As Variant
    For Each item In dataList
        Debug.Print item ' 在立即窗口输出数据
    Next item
End Sub

方式B：后期绑定（无需手动引用库） #

Private Sub btInsert_Click()
    Dim r As Range
    Dim cell As Range
    Dim dataList As Object ' 后期绑定用Object
    
    On Error Resume Next
    Set r = Application.InputBox(prompt:="Enter a range", Type:=8)
    On Error GoTo 0
    If r Is Nothing Then Exit Sub
    
    Set dataList = CreateObject("System.Collections.ArrayList")
    ' 遍历添加数据
    For Each cell In r
        dataList.Add cell.Value
    Next cell
    
    ' 后续使用List的逻辑示例
    Debug.Print "List总元素数：" & dataList.Count
End Sub

方案2：使用VBA原生Collection（无需引用，适合简单存储） #

Private Sub btInsert_Click()
    Dim r As Range
    Dim cell As Range
    Dim dataCol As Collection
    
    On Error Resume Next
    Set r = Application.InputBox(prompt:="Enter a range", Type:=8)
    On Error GoTo 0
    If r Is Nothing Then Exit Sub
    
    Set dataCol = New Collection
    ' 遍历添加数据（Collection需指定Key，这里用单元格地址作为唯一Key）
    For Each cell In r
        dataCol.Add cell.Value, Key:=cell.Address
    Next cell
    
    ' 示例：遍历输出数据
    Dim i As Integer
    For i = 1 To dataCol.Count
        Debug.Print dataCol(i)
    Next i
End Sub

关键说明 #

• 若你之前声明的List是自定义类型，需先在模块顶部定义该类型，否则会报「User-defined type not defined」错误
• 不要试图用Copy方法直接将数据存入集合，必须通过遍历单元格完成数据转移

内容的提问来源于stack exchange，提问作者Sulthon Ghali