¦^´_ 1#yangjie
¨Ï¥Î°}¦C Ar = Array(TextBox3, TextBox4, TextBox5....)
For i = 2 To lastrow1
If Cells(i, 4) = TextName.Text Then
For ii = 0 To UBound(AR)
AR(ii).Value = Sheets("¾Ç¥Í¸ê®Æ").Cells(i, 6 + ii)
Next
End If
Next
¦^´_ 3#yangjie
Dim Ar(3 To 80) As MSForms.Control, i%
For i = 3 To 80
Set Ar(i) = Controls("TextBox" & i)
Next
For i = 2 To lastrow1
If Cells(i, 4) = TextName.Text Then
For ii = 3 To UBound(AR)
AR(ii).Value = Sheets("¾Ç¥Í¸ê®Æ").Cells(i, 6 + ii - 3)
Next
End If
Next
¸É¤W¥t¤@¸Ñªk
For i = 2 To lastrow1
If Cells(i, 4) = TextName.Text Then
For ii = 3 To 80
Controls("TextBox" & ii) = Sheets("¾Ç¥Í¸ê®Æ").Cells(i, 6 + ii - 3)
Next
End If
Next