已解决其他表单元各文本

EXCE;纯净水

已解决其他表单元各文本

网海遨游

不知这样，能否符合要求？

Sub test()
        Set s1 = Sheets("sheet1")
        Set s3 = Sheets("sheet3")
        r = s1.[d65536].End(3).Row + 1
        If s3.Cells(r, 4) <> "" Then
                s3.Cells(r - 1, 4).Copy s1.Cells(r, 4)
        End If
End Sub

EXCE;纯净水

网海遨游 发表于 2019-10-9 20:04
不知这样，能否符合要求？

Sub test()

首先非常感谢，但是不是这样，这个代码室复制，我想对Sheet1D2进行循环输入文本

liulang0808

因为有sheet3的D列有重复内容，所以点击之后不知道具体从哪里开始

EXCE;纯净水

liulang0808 发表于 2019-10-9 20:31
因为有sheet3的D列有重复内容，所以点击之后不知道具体从哪里开始

谢谢老师，从D1开始，重复不用管，一个一个循环输入就可以，空格不输入

liulang0808

EXCE;纯净水 发表于 2019-10-9 20:36
谢谢老师，从D1开始，重复不用管，一个一个循环输入就可以，空格不输入

因为有重复的无法定位，循环到什么位置了

EXCE;纯净水

liulang0808 发表于 2019-10-9 20:40
因为有重复的无法定位，循环到什么位置了

非常感谢老师，循环定位到D8即可

liulang0808

EXCE;纯净水 发表于 2019-10-9 20:42
非常感谢老师，循环定位到D8即可

楼主可以考虑使用find，查找，然后offset

liulang0808

Private Sub CommandButton1_Click()
    Set Rng = Sheets(3).Columns(4).Find([d2], lookat:=xlWhole)
    If Not Rng Is Nothing Then
        For j = Rng.Row + 1 To Sheets(3).Cells(Rows.Count, 4).End(3).Row
            If Len(Sheets(3).Cells(j, 4)) > 0 Then [d2] = Sheets(3).Cells(j, 4): Exit Sub
        Next j
    End If
End Sub

EXCE;纯净水

liulang0808 发表于 2019-10-9 20:55
Private Sub CommandButton1_Click()
    Set Rng = Sheets(3).Columns(4).Find([d2], lookat:=xlWhole)
...

谢谢老师，但是测试不对，这个代码我短时间没看懂，所以我修改很费劲，不能从D1:D8循环