Пример: Я выбрал любую строку и любой столбец, скажем, D6. Данные, которые я ищу, находятся в столбце H. Так, я хочу, чтобы макрос скопировал данные последовательно 6, и столбец H, т.е. H6.
Если я выбрал G14, макрос должен скопировать данные в ячейке H14 и т.д.
Range("H" & ActiveCell.Row).Copy
ActiveCell.PasteSpecial
назовите его на Worksheet_SelectionChange
если Вы только хотите, чтобы значение использовало, просто присвоилось
Range("H" & ActiveCell.Row).Value
к переменной и использованию это в Ваших вычислениях и возврате, где Вы будете
Я записал макрос для этого. Это всегда копирует выбранную ячейку и вставляет данные по столбцу H в той же строке.
Sub NewMacro()
Selection.Copy
Cells(ActiveCell.Row, 8).Select
ActiveSheet.Paste
End Sub
У Вас было несколько дней, так уже, возможно, достиг ответа, но расширение ответа уже suggestedn, я думаю ниже, сделает то, что Вы спрашиваете:
Sub CopyFromColH()
'Save the current location
Dim TargetCell As Range
Set TargetCell = ActiveCell.Range("A1")
'Copy from same row in H
Cells(ActiveCell.Row, 8).Select
Selection.Copy
'Paste to original location, as saved above
TargetCell.Select
ActiveSheet.Paste
End Sub