Question

我在列S中列出了大约400个公司代码，我希望Excel在Cell S2中选择第一个公司代码，将其粘贴到一个单元格（E3）中，然后运行已创建的宏来查找公司的母公司。

然后我希望Excel返回我的公司代码列表并选择列表中的下一个（Cell S3）并将其粘贴到同一个单元格中并运行宏以再次查找母公司。一旦不再有任何公司代码的单元格，我希望它停止。

我知道这可能是一段非常简单的代码，但到目前为止我没有运气，也找不到类似的问题。

这是我尝试的代码，但没有成功。我在这里找到了另一段代码，就是找到一个空白单元格，所以我想我会把S1中的第一个单元格空白，然后让它向下移动一个单元格并抓住第一个代码，剪切并粘贴它，然后保持重复。

Sub TEST1()

For Each Cell In Range("Entities").Cells.SpecialCells(xlCellTypeConstants)

Sheets("Input").Range("E3") = Cell.Value

Calculate

Next Cell

End Sub

Answer 1

循环在任何编程语言中都很常见。在VBA中，有几个选项可供选择。如果你确定列表中没有空单元格，我可能会使用While循环，如下所示：

Option Explicit

Sub jzz()
Dim i As Long

i = 1 'first row of data

Do While Cells(i, 1) <> vbNullString
    'do something with this cell
    i = i + 1 'increment variable i
Loop

End Sub

此循环将一直运行，直到在第一列（A）中找到空单元格。

Excel VBA - 选择列表中的项目并粘贴到特定单元格，然后选择下一个项目

1 个答案: