如何获得列中的string左alignment的信息，以及如何在另一个工作表中使用此信息创build新的单元格？

在一张纸上，我有一个有左右alignment的string的列。 我需要过滤所有左alignment，并为每个创build一个新的单元格/行。

我已经开始了

Sub test() Dim c As Variant For Each cell In Columns("C") If cell.HorizontalAlignment <> xlLeft Then Else: c = cell.Value End If Next cell End Sub 

这只是我的基本想法，它肯定是行不通的，但也许有人可以帮助我，我可以build立我所需要的基于此。

Answer 1

这是你正在尝试？

 Sub Sample() Dim oSht As Worksheet Dim lastRow As Long, i As Long Dim r1 As Long, r2 As Long '~~> Change this to the relevant sheet Set oSht = Sheets("Sheet1") '~~> Start Row for output sheets r1 = 1: r2 = 1 With oSht lastRow = .Range("C" & .Rows.Count).End(xlUp).Row For i = 1 To lastRow '~~> I am using Sheet2 and Sheet3. Change as applicable If .Range("C" & i).HorizontalAlignment = xlLeft Then .Range("C" & i).Copy Sheets("Sheet2").Range("A" & r1) r1 = r1 + 1 ElseIf .Range("C" & i).HorizontalAlignment = xlRight Then 'xlGeneral???? .Range("C" & i).Copy Sheets("Sheet3").Range("A" & r2) r2 = r2 + 1 End If Next i End With End Sub 

另外请注意， xlRight可能不是您所想的那样。 这可能是xlGeneral所以你可能想要检查它。 默认情况下，数字在xlGeneral右alignment，左xlGeneral