VBA 通过更改字符串名称设置字符串值

Question

您好，我正在尝试创建将从 excell table 收集数据的宏。我创建具有相似名称并以数字结尾的字符串。请问有没有办法遍历这个字符串？此代码不起作用，但会解释我想做什么。

Sub vzor()

Dim i As Integer

Dim input1, input2, input3, input4, input5, input6, input7, _
input8, input9, input10, input11, input12, input13, input14, _
input15, input16, input17, input18, input19, input20, input21, _
input22, input23, input24, input25, input26, input27, input28, _
input29, input30, input31, input32, input33, input34, input35, _
input36, input37, input38, input39, input40, input41, input42, _
input43, input44, input45, input46, input47, input48, input49, _
input50, input51, input52, input53, input54, input55, input56, _
input57, input58, input59, input60, input61, input62, input63, _
input64, input65, input66, input67 As String

For i = 2 To 67

    If Range("B" & i).Value = "" Then
        MsgBox "Please fill all required data (The cells with red fill)", vbOKOnly, "Missing data"
        Range("B" & i).Select
    Else
         input & i = Range("B" & i).Value
    End If

Next

Answer 1

这似乎是字典的完美示例

Option Explicit

Dim wb As Workbook, ws As Worksheet
Dim inputdict As Variant
Dim i As Long

Set inputdict = CreateObject("Scripting.Dictionary")
Set wb = ThisWorkbook 'Change if necessary
Set ws = wb.Sheets(1) 'Change if necessary

For i = 1 To 67
    If ws.Cells(i, "B").Value = vbNullString Then
        MsgBox "Please fill all required data (The cells with red fill)", vbOKOnly, "Missing data"
        ws.Cells(i, "B").Select
    Else
        inputdict.Add i, ws.Cells(i, "B").Value
    End If
Next i

这将创建一个字典 (inputdict)。此字典的键是由 i 定义的整数，范围从 1 到 67。值是您已在代码中指定的单元格中的值。

VBA 通过更改字符串名称设置字符串值

VBA Setting string value with changing string name

excel

vba

string

loops

data-collection