Kompпример:
Я выбрал любую строку и любой столбец, скажем, D6.
Данные я ищу в колонке Х.
Итак, я хочу, чтобы макрос скопировал данные в строке 6 и столбце H, т. е. H6.
Если я выбрал G14, макрос должен скопировать данные в ячейке Н14 и т. д.
Как получить макрос Excel для копирования данных из определенного столбца и той же строки, выбранной при активации макроса?
28
задан
11.04.2023 15:56 
2555
2555
4 ответа
Range("H" & ActiveCell.Row).Copy
ActiveCell.PasteSpecial
вызовите его на Worksheet_SelectionChange
Если вам нужны только значения, просто назначить
Range("H" & ActiveCell.Row).Value
к переменной и использовать ее в своих вычислениях и возвращать туда, где вы будете
1
отвечен datatoo 2023-04-12 23:44
для этого я написал макрос. Он всегда копирует выбранную ячейку и вставляет данные столбца H в ту же строку.
Sub NewMacro()
Selection.Copy
Cells(ActiveCell.Row, 8).Select
ActiveSheet.Paste
End Sub
0
отвечен Mehper C. Palavuzlar 2023-04-13 02:01
У Вас было несколько дней, так что, возможно, уже достигли ответа, но, расширяя ответ уже 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
0
отвечен DMA57361 2023-04-13 04:18
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("U:U")) Is Nothing Then
Cancel = True
If Application.CountIf(Sheets("AA").Range("L:L"), Target.Value) = 0 Then
Cells(Target.Row, 12).Value = Target.Value
End If
End If
End Sub
0
отвечен Farrakh Hayat 2023-04-13 06:35
 |  |  |  |  |  |  |  |  |  |
Постоянная ссылка на данную страницу: [ Скопировать ссылку | Сгенерировать QR-код ]
