相关疑难解决方法(0)

对于某些人来说，这可能是一个便宜的问题，但是我对如何填充列表框感到完全困惑。

使用此行，我可以如下所示填充列表框：
ListBox1.List = Sheets("Sheet1").Cells(1, 1).CurrentRegion.Value
或

Dim rngName As Range
Dim ws As Worksheet
Dim i As Integer
Set ws = Worksheets("Sheet1")
    For i = 1 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row Step 1
        If ws.Cells(i, 1).Value <> vbNullString Then Me.ListBox1.AddItem 
        ws.Cells(i, 1).Value
Next i

以下是我计划用于填充列表框的数据，这些数据是渐进式的。只有该列具有修复计数。

有人请启发我如何使用FOR LOOP填充适合多列和多行的列表框，如上面的代码所示。任何帮助表示赞赏。谢谢。

我正在编写一个宏，它比较两组值并警告用户是否存在任何差异。当发现差异时，我希望用户输入他们的评论。为了让他们轻松理解我要问的内容，我想显示用于获取评论的输入框内的所有数字。我想要得到的示例输入框可能如下所示：

Difference between warehouse and accounting records! See details below, insert reason.

Product: Toyota Corolla

------------------------------
|Item   |Warehouse|Accounting|
------------------------------
|Wheel  |        3|         3|
------------------------------
|Engine |        2|         3|
------------------------------
|Door   |        7|         7|
------------------------------
|Gearbox|        5|         5|
------------------------------
|Roof   |        4|         3|
------------------------------

在这种情况下，警报是由 Roof 和 Engine 的不同值引起的。填充表的数字存储在变量中。如何制作这样的表格，对于必须输入评论的用户来说看起来很清楚？