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

【问题标题】：Excel VBA - Search column for text in a String, Copy text into adjacent cells downExcel VBA - 在字符串中搜索文本的列，将文本复制到相邻的单元格中
【发布时间】：2017-07-26 07:27:09
【问题描述】：

我正在尝试简化我每周使用的 Excel 工作表，我的 vba 正在改进，但是这个问题完全困扰了我。我正在尝试创建一个 VBA 宏来执行以下操作：

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

基本上我想要一个包含完整信息行的表，所以我可以对其进行透视等。请查看之前和之后的屏幕截图。

之前：
之后：

这只是我与 3 个人一起获得的一小部分数据，但是我有近 100 个人，并且无法继续手动进行，因为它让我发疯。

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

谢谢

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：