用于多个variables的循环

这里是一个excel vba子程序的例子。 我有两列的数据，范围v和范围c – 我怎样才能连接每个单元行的值与并行行的调用值。

理想情况下，我想要做的就是这个

 For Each c,b In v,bb ... next c,b 

请让我进一步解释：单元格G2值只与J2有关，而G3与J3有关

 G2 value = Blue J2 value = Spaghetti 

我正在尝试用一个for循环返回“Blue Spaghetti”？

 G2 value = Red J2 value = Noodles 

我想用一个for循环返回“红面条”？

 Dim c As Variant Dim b As Variant Dim v As Range Dim bb As Range Dim brow As Long Dim vrow as long Set v = ActiveSheet.Range("G:G") vrow = v(v.Cells.Count).End(xlUp).Row Set v = Range(v(2), v(brow)) Set bb = ActiveSheet.Range("J:J") brow = bb(bb.Cells.Count).End(xlUp).Row Set bb = Range(bb(2), bb(brow)) For Each c In v c = Mid(c, 1, 4) msgbox c Next c For each b in bb msgbox b next b 

Answer 1

看着你原来的post，我会说我对所有额外的东西感到困惑。 看看这里发生了什么，并用问题评论。 我认为你已经过了复杂的尝试。

 Sub ConcatCols() Dim lastRow As Long Dim tempValue As String lastRow = Sheets("Sheet1").Range("A" & Rows.Count).End(xlUp).row For iRow = 2 to lastRow tempValue = Sheets("Sheet1").Cells(iRow, "G").Text & " " & _ Sheets("Sheet1").Cells(iRow, "J").Text MsgBox tempValue Next iRow End Sub