Excel – VBA | parsing范围值并复制到另一列

我遇到了很多问题。

我想要做的是基本上得到Excelparsing范围单元格的内容，如果内容不等于“OWNED”，将其复制到另一列。 我实际上不知道该怎么做，一直在尝试使用我在互联网上发现的不同macros，但是他们中没有一个似乎适用于我所需要的，而我缺乏这方面的知识，因此，如果有人借给我一只手，我将不胜感激或者至less指出我在正确的方向。

所以基本上我试图从中获得

对此

正如你所看到的，我需要程序不要在第一列中留出空单元格。

我会非常感激能够帮助我的人，这让我疯狂了好几个星期。

提前致谢。

编辑：添加代码

Sub Update() Dim wb As Workbook Dim ws As Worksheet Set wb = ActiveWorkbook Set ws = wb.Sheets("Hoja1") Dim UninstalledColumn As String Dim UninstalledRow As Integer UninstalledColumn = "A" UninstalledRow = 3 Dim UninstalledCell As Range Set UninstalledCell = UninstalledColumn & Str(UninstalledRow) Dim WorkstationList As Range Set WorkstationList = Range("C3:C12") End Sub 

Answer 1

尝试这个

 Sub Update() Dim wb As Workbook Dim ws As Worksheet Set wb = ActiveWorkbook Set ws = wb.Sheets("Hoja1") Dim UninstalledColumn As String Dim UninstalledRow As Integer UninstalledColumn = "A" UninstalledRow = 3 'this is how you would assign a range, but you don't need that. ' Dim UninstalledCell As Range ' Set UninstalledCell = ws.Range(UninstalledColumn & UninstalledRow) Dim WorkstationList As Range Set WorkstationList = ws.Range("C3:C12") For Each cel In WorkstationList If cel.Value <> "owned" Then ws.Cells(UninstalledRow, UninstalledColumn) = cel.Value UninstalledRow = UninstalledRow + 1 End If Next cel End Sub