excel - Excel VBA将A列中的字符串复制到同一行的B

Question

如何将 A 列中的字符串复制到同一行的 B 列？如果可能的话，我想在代码中使用自定义字符串从 A 列到 B 列的同一行中查找和复制。

 (not real code, just for example purpose) Something like _
 select.column.A.copy.text.find (""Test:"") to column B on the same row.

字符串可以在任何行上。

---

输入：

A栏

““测试”：”

---

输出：

B栏

““测试”：”

---

标签： excelvba

Answer 1

使用下面的子。您可能需要针对实际工作表数据范围调整代码。

Sub CopyAtoB()
Dim lrw As Long
Dim rng As Range

lrw = Range("A1").End(xlDown).Row

    For Each rng In Range("A1:A" & lrw)
        rng.Offset(0, 1) = rng
    Next

End Sub

编辑：根据评论尝试下面的子。

Sub CopyAtoB()
Dim lrw As Long
Dim rng As Range

lrw = Range("A1").End(xlDown).Row

    For Each rng In Range("A1:A" & lrw)
        If (InStr(1, LCase(rng), "username") > 0) Or _
           (InStr(1, LCase(rng), "password") > 0) Or _
           (InStr(1, LCase(rng), "id") > 0) Then
            rng.Offset(0, 1) = rng
        End If
    Next

End Sub