Excel VBA - 搜索字符串中的文本列，将文本复制到相邻单元格

Question

我正在尝试简化我每周工作的Excel工作表，我的vba正在改进但是这个问题完全让我感到难过。 我正在尝试创建一个可以执行以下操作的VBA宏：

1 - 在列B中搜索文本“Associate”，然后当找到它时，我想将整个单元格内容复制到相邻的列中，将其填入数据相关的位置.aghh ???

基本上我想要一个包含完整信息的行的表，所以我可以转动它等。请看前后的截图。

在：
后：

这只是我与3个人的一小部分数据样本，但是我有近100个人，并且不能继续手动操作，因为它驱使我疯狂。

任何建议或帮助都会非常感激，因为我不知道从哪里开始解决这个问题。

由于

Answer 1

未测试：

Dim c as range, a

for each c in Range(Range("B1"),cells(rows.count,2).End(xlUp))
    If c.Value like "Associate:*" then 
        a = c.value
    else 
        if c.value<>"" then c.offset(0,-1).value=a
    End If
next c