excel如何使鼠標點擊那壹行就在那壹行的D列填充指定的文字？

這需要使用VBA編程，程序代碼如下圖：

測試的表如下圖：

能夠做到點哪行就填內容的功能，程序代碼的文本如下（可以復制粘貼，但是壹定貼到對應表中）：

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Cells(Target.Row, "D") = "文字"

End Sub