Excel Чтение Макета

Question

Я хотел бы создать макрос, который будет выделять строки и столбцы выбранных ячеек.

Я пробовал много комбинаций кода VBA от других, но ни один из них не был полностью оптимизирован для того, что я хотел бы нравится делать. Я нашел что-то похожее из Расширение Office .

Код, который я написал, имел проблемы:

• Подсветка зависает при копировании-вставке значения.

• Не удалось выделить несколько ячеек одновременно и выделить их.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = False Then
Application.Calculate
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculate
.ScreenUpdating = True
.EnableEvents = True
End With
End If
End Sub

Это то, что я хотел бы как-то исправить.