Userform1.Label1需要有一个循环来更新20 Labels.Caption

Question

我有一个宏，我需要更新20个标签使用循环更新范围a1到a20作为标签标题，但我收到错误。 我收到错误，因为我正在使用标签& j。请建议替代

Sub NameListAllocate() 
k = Range("Q65536").End(xlUp).Row 

For j = 2 To k 
UserForm1.Label&j.Caption = Range("q" & j).Value 
Next 

UserForm1.Show 
End Sub 

Answer 1

UserForm1.Controls("Label" & j).Caption = Range("q" & j).Value