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

时间:2014-05-15 16:00:13

标签: excel vba excel-vba

我在列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

1 个答案:

答案 0 :(得分:0)

循环在任何编程语言中都很常见。在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)中找到空单元格。