【已解决】自动复制内容

没有技术

.
先看下图




A列 只有 A1 和 A2 两个单元格有数据，但是这两个单元格的数据会变化


想要实现的效果：当 A2 与 B列的任一单元格的值 重复，则把 A1 的值自动复制到 B列（自上而下）的第一个空单元格


如图，因为 A2=B3，所以此时得把 A1 的值自动复制到 B4

自动复制内容.7z (6.95 KB, 下载次数: 8)

2018-9-25 14:12 上传

点击文件名下载附件

.

liulang0808

楼主上传下附件吧，便于大家解答

没有技术

liulang0808 发表于 2018-9-25 14:06
楼主上传下附件吧，便于大家解答

老师，我已经上传附件

liulang0808

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Address(0, 0) = "A2" Then
   
3.         If Len(Target) > 0 Then
   
4.             Set Rng = Columns(2).Find([a2].Value, lookat:=xlWhole)
   
5.             If Not Rng Is Nothing Then
   
6.                 For j = 1 To Cells(Rows.Count, 2).End(3).Row + 1
   
7.                     If Len(Cells(j, 2)) = 0 Then Cells(j, 2) = [a1]
   
8.                 Next j
   
9.             End If
   
10.         End If
    
11.     End If
    
12. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。

没有技术

liulang0808 发表于 2018-9-25 14:19
附件内容供参考。。。。。。

谢谢老师！


.

约定的童话

没有技术 发表于 2018-9-25 14:27
谢谢老师！

右下角评分看到没？

没有技术

约定的童话 发表于 2018-9-25 14:48
右下角评分看到没？

不好意思啊，我刚来论坛，不太懂~

现已为老师送上鲜花

约定的童话

没有技术 发表于 2018-9-25 14:52
不好意思啊，我刚来论坛，不太懂~

现已为老师送上鲜花

论坛大神很厉害的，后续有问题就发出来就好了，前提是问题要描述清晰