如何在vba中使用左公式？如何确定活动细胞？答案

【问题标题】：how to use left formular in vba? how to determine active cells?如何在vba中使用左公式？如何确定活动细胞？
【发布时间】：2015-10-26 10:17:08
【问题描述】：

如何使用左公式在 B 列中获取短字符串（例如：BC150033）？上图是我使用左公式的结果。但是我想使用 vba 来实现同样的结果。我知道每个下一个循环的用途，但是有问题..

      A                    B           
1  BC150033-001         BC150033
2  BR165522-002         BR165522
3   ect....



 Set SourceRange = Range(Sheets(2).Range("A1"), Selection.End(xlDown))
 For Each cell In SourceRange
If IsEmpty(cell.Value) Then Exit For

Sheets(2).Range("B" & cell.Row).Value = Left(cell.Value, 8)
Next

请指教

【问题讨论】：

标签： vba excel for-loop foreach

【解决方案1】：

我认为这不是 Left 的问题。
试试这个，我改变了你获取 SourceRange 的方式。

Sub test()
    Set SourceRange = Range(Range("A1"), Range("A1").End(xlDown))
     For Each cell In SourceRange
        If IsEmpty(cell.Value) Then Exit For
        Range("B" & cell.Row).Value = Left(cell.Value, 8)
    Next
End Sub

【讨论】：