Question

抱歉看似容易，但我很新，而且我被困住了。我正在阅读＆＃34; Master＆＃34;表C列，用于某些值的变化;当进行更改时，我需要在＃34;代码＆＃34;中找到A2中的复制内容（它是超链接）。回到＆＃34; Master＆＃34; B列到与刚刚进行更改的单元格相邻的单元格。

我已经找到了检查更改的部分并复制了单元格，但我无法获得它的粘贴部分。

If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
If Target = "Decomm" Then
    Application.EnableEvents = False
    Sheets("Codes").Range("A2").Copy
    Sheets("Master").Activate

感谢您提供的任何帮助。

Answer 1

你的意思是这样吗？这会将A2复制到更改的左侧的单元格。或者你的意思是不同表格上的B列？

If Intersect(target, Range("C:C")) Is Nothing Then Exit Sub
If target = "Decomm" Then
    Application.EnableEvents = False
    Sheets("Codes").Range("A2").Copy target.Offset(, -1)
   'line below instead if a different sheet 
   'Sheets("Codes").Range("A2").Copy sheets("Master").range(target.Offset(, -1).address)
End If

Excel VBA：将Sheet2（A2）复制到Sheet1（Bx）当更改为Sheet1（Cx）时

1 个答案: