T
tkaterina89
Есть excel файл, в ячейках A1:A96 стоят фразы, в ячейках F1:F96 стоят те же фразы, но в другом порядке. В ячейках G1:G96, H1:H96, I1:I96 информация по этим фразам.
Я написала код:
Он делает следующее: я выбираю слово из столбца А, он ищет его в столбце F и вставляет рядом с выбранным словом в столбце В.
Теперь проблема такая:
Как сделать так, чтобы копировалась информация из соседних ячеек (найденного слова) G, H и I в последующие ячейки C, D и E?
В моем примере это будет 3 ячейки, а как сделать так чтоб назначать количество копируемых ячеек?
Я написала код:
Код:
Sub Find_Matches()
Dim CompareRange As Variant, X As Variant, Y As Variant, N As String
Set CompareRange = Range("F1:I96")
For Each X In Selection
For Each Y In CompareRange
If X = Y Then X.Offset(0, 1) = X
Next Y
Next X
End Sub
Теперь проблема такая:
Как сделать так, чтобы копировалась информация из соседних ячеек (найденного слова) G, H и I в последующие ячейки C, D и E?
В моем примере это будет 3 ячейки, а как сделать так чтоб назначать количество копируемых ячеек?