在循环vba中循环

Question

我有以下问题，我无法理解。

我有以下数据列表：

Row           Value 

DK12_DK13       2   
DK12            4
DK15            3
DK11            3
DK13            5

我想让我的函数做的是循环遍历rows列，选择前4个（和最后4个）字符并将它们保存在字符串中。接下来，我想要将对应于新字符串中的4个第一个字符的列b（值）的值存储起来。

要澄清，第一个字符串将是DK12，然后我将使用此字符串在列A中查找值为4的4字符DK12，然后将值4存储在另一个字符串中。我觉得这个问题要求我在循环中有一个循环。现在我有以下代码，但我有点卡在这里，当我想循环我存储在第一个循环的字符串中的数据。希望我的解释有道理：

Sub Test()
Dim I As Integer
Dim L_text As String
Dim R_text As String
Dim Full_text As String
Dim L_Value As String

For I = 5 To 9

L_text = Left(Range("A" & I), 4)
R_text = Right(Range("A" & I), 4)

 If Len(Range("A" & I)) = 9 Then

 L_text = Left(Range("A" & I), 4)
 R_text = Right(Range("A" & I), 4)
 Full_text = Left(Range("A" & I), 9)

     End If
   Next I
End Sub