Excel-VBA | 解析范围值并复制到另一列

Question

我遇到了很多问题。

我想做的基本上是让Excel解析范围单元格的内容，如果内容不等于“ OWNED”，请将其复制到另一列。 我实际上不知道该怎么办，正在尝试在互联网上找到的各种宏，但是它们似乎都无法满足我的需要，并且我缺乏完成此工作的知识，因此，如果有人借给我帮助，我将不胜感激。或至少指出了我正确的方向。

所以基本上我想从中得到

对此

如您所见，我将需要该程序不要在第一列上保留空单元格。

我将非常感谢能够帮助我的人，这让我发疯了数周：/

提前致谢。

编辑：附加代码

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