双击单元格后，将单元格值复制到同一行上的另一个单元格

这个VBA代码做我需要的，但只在一行：

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("C1:H1")) Is Nothing Then Cancel = True If Application.CountIf(Sheets("Sheet2").Range("B:B"), Target.Value) = 0 Then Range("B1").Value = Target.Value End If End If End Sub 

我在我的Excel工作表上：

 ABCDEFGH MAN NN NNP JJ POS CAN MOD NN VV JJ RB NON ... ... 

多达300,000个数据。

我希望当我双击C：H范围内的任何单元格时，它的值将被复制到B.上面的代码只处理一行。 如果我将C1：H1更改为C2：H2，将B1更改为B2，则会处理第二行。

我如何使它适用于所有行？

Answer 1

我认为下面的改变将会起作用（没有在iPhone上testing）：

 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("C:H")) Is Nothing Then Cancel = True If Application.CountIf(Sheets("Sheet2").Range("B:B"), Target.Value) = 0 Then Cells(Target.Row, 2).Value = Target.Value End If End If End Sub