Excel VBA +根据ComboBox中的值在TextBox中返回多行

我正在Excel中编写VBA代码，以基于在ComboBox中select的值完成将多行插入到TextBox中。 这是我写的下面的代码。 它只列出最后一行，但不是我想要的所有行。 防爆。 列76是ComboBox将显示值的位置。 如果值匹配，那么它应该在TextBox中返回所有在列77中find的值。即，如果我在我的ComboBox BFSI中select，它应该返回给我的印度和SBI的LIC。 但是我的代码只返回SBI。

Private Sub ComboBox22_Change() 'Variable Declaration Dim iRow, StartLine, EndLine As Integer EndLine = 50 iRow = 6 'Clear Combobox2 before loading items TextBox21.Text = "" For StartLine = 1 To EndLine If ComboBox22.Text = Sheets("Pivots").Cells(iRow, 76) Then TextBox21.Text = Sheets("Pivots").Cells(iRow, 77) End If iRow = iRow + 1 Next StartLine End Sub 

Answer 1

是的，你的代码会做到这一点。 问题是，当它到达第二个“BFSI”单元时，它将覆盖第77列中的第一项而不是附加它。 改变这一行

 TextBox21.Text = Sheets("Pivots").Cells(iRow, 77) 

至

 TextBox21.Text = TextBox21.Text & "&" & Sheets("Pivots").Cells(iRow, 77) 

然后列77的值将被附加到您的TextBox值。 在我的例子中，它们将用一个&符号分开，以适应您的需求。