求大神指导当前范围内的声明重复。附代码

tpaiwy

Private Sub UserForm_Initialize()
TextBox1.SetFocus
ComboBox1.ControlTipText = "1" '1才下拉，0不下拉，2TEXTBOX不变动
arr = Sheet3.Range("c3:c" & Range("c65536").End(xlUp).Row)
ComboBox1.List = arr
TextBox2.Text = Date

Dim col As New Collection
      Dim arr As Variant    下划线语句显示蓝色的
      Dim rng As Range
      Dim i As Integer
      On Error Resume Next
      For Each rng In Range("b2:b" & Sheet4.Range("b65536").End(xlUp).Row)
          If rng <> "" Then col.Add rng, CStr(rng)
      Next
      ReDim arr(1 To col.Count)
      For i = 1 To col.Count
          arr(i) = col(i)
      Next
      ComboBox2.List = arr
      ComboBox2.ListIndex = 0
      CommandButton1.Accelerator = "D"
  End Sub

鄂龙蒙

Dim arr As Varian   放到最上边