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

如何使用左边的公式来获得B列中的短路string（例如：BC150033）？ 以上图片是我使用左公式的结果。 但是我想用vba来达到同样的效果。 我知道每个下一个循环使用，但有些事情是错误的..

AB 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 

请指教

Answer 1

我认为这不是左边的问题。
试试这个，我改变了你如何得到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