Question

我在表1中有数据列出了每天分配的新任务。在工作表2上，我想自动将工作表1新行中添加的新任务名称复制到工作表2中的两个合并单元格中。

我使用Vlookup来执行此功能，但问题是我必须在工作表1中添加的不同任务之间添加一个空行，这样当我将Vlookup的公式从工作表2中的第一个单元格拖到结束时在列中，它将获取工作表1中单元格的所有值，而不是取一个并离开另一个。

有办法做到这一点吗？或者是否有一个VBA代码可以连续运行以检测是否将添加新任务以添加空行但是将其隐藏在工作表1上

由于

我已经通过使用以下代码来改变我想要这样做的方式： 1.检测表1列A中是否有变化

2.将A列中每个单元格的内容复制到D列表2中的两个单元格。

3.列D中两个单元格之间的混合

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim j As Integer
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error Resume Next
J=1
For i = 1 To 8
Worksheets("sheet2").Range("D" & j).Value = Worksheets("sheet1").Range("A" & i).Value

Worksheets("sheet2").Range("D" & j + 1).Value = Worksheets("sheet1").Range("A" & i).Value
J=J+2
Next i

With Worksheets("sheet2").Range("D" & j:"D" & j+1)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
Application.DisplayAlerts = False
.merge
Application.DisplayAlerts = True
End With

范围范围的语法（＆＃34; D＆＃34;＆amp; j：＆＃34; D＆＃34;＆amp; j + 1）不正确

怎么做？

Answer 1

以下代码是最终有效的正确答案：

{{1}}

如何在Excel中的行中自动查找或复制新插入的值到另一个工作表中的两个合并单元格？

1 个答案: