Question

此代码显示 Sheet1 的所有单元格列 A （结尾处甚至为空值）。解决方法：最多显示 最后一行 在 combobox1 中具有值 >（并删除结尾的empaty值）？

Private Sub UserForm_Initialize()
ComboBox1.List = Sheets("Sheet1").Range("A:A").Value
End Sub

Answer 1

尝试一下：

var result = "la sílaba tónica es la penúltima".match(/\S+\s*/gi);

console.log(result);

Answer 2

Private Sub UserForm_Initialize()
With Sheets("Sheet1")
  ComboBox1.List = .Range(.Range("A1"), .Cells(.Rows.Count,1).End(xlUp)).Value
End With
End Sub

在Excel中删除组合框的空行-VBA

2 个答案: