大神帮忙看下，这种情况怎么弄？

1306669687

输入数据后自动同步后其他页面，同步后自动清除。每天都需要输入不同的数据。

ykcbf1100

啥数据没有，那这个应该无法帮助了。
再说，光看图也不匹配啊，左边的表不可能同步出右边的表的。

1306669687

ykcbf1100 发表于 2023-6-21 14:22
啥数据没有，那这个应该无法帮助了。
再说，光看图也不匹配啊，左边的表不可能同步出右边的表的。

已经重新上传，“售后输入数据”页录入后，自动同步到“售后详情页”页和“退货入库”页。“售后输入数据”页清空内容不影响其他页的数据。

ykcbf1100

1306669687 发表于 2023-6-21 14:33
已经重新上传，“售后输入数据”页录入后，自动同步到“售后详情页”页和“退货入库”页。“售后输入数据 ...

附件供参考。。。

512008404

Public Sub 同步()
    Dim rowCount As Integer, i As Integer

    rowCount = Range("c" & Rows.Count).End(xlUp).Row
    If rowCount > 4 Then
        For i = 5 To rowCount
            r_sh = Sheets("售后详情").Range("B" & Sheets(1).Rows.Count).End(xlUp).Row + 1
            Sheets("售后详情").Cells(r_sh, "A") = Cells(i, "B") '原单号退回_自动日期
            Sheets("售后详情").Cells(r_sh, "B") = Cells(i, "C") '原单号退回_拦截或拒收
            Sheets("售后详情").Cells(r_sh, "C") = Cells(i, "D") '原单号退回_状态

            Sheets("售后详情").Cells(r_sh, "F") = Cells(i, "G") '退货退款_自动日期
            Sheets("售后详情").Cells(r_sh, "G") = Cells(i, "H") '退货退款_订单号
            Sheets("售后详情").Cells(r_sh, "H") = Cells(i, "I") '退货退款_退回单号
            Sheets("售后详情").Cells(r_sh, "I") = Cells(i, "J") '退货退款_数量

            r_th = Sheets("退货入库").Range("B" & Sheets(1).Rows.Count).End(xlUp).Row
            Debug.Print r_th
            c_th = Sheets("退货入库").Range("b" & r_th).End(xlToRight).Column
            If c_th >= 12 Then
                c_th = 1
                r_th = r_th + 1
            End If
            Debug.Print r_th, c_th
'            Sheets("退货入库").Cells(r_th, c_th) = Cells(i, "M") '退货入库_自动日期
            Sheets("退货入库").Cells(r_th, c_th + 1) = Cells(i, "N") '退货入库_退回单号
            Range("c" & i & ",d" & i & ",H" & i & ",I" & i & ",J" & i & ",N" & i).ClearContents
        Next i
        bn = MsgBox("同步成功" & rowCount - 4 & "条记录", vbOKOnly, "消息")
    End If

End Sub

512008404

Public Sub 同步()
    Dim rowCount As Integer, i As Integer
   
    rowCount = Range("c" & Rows.Count).End(xlUp).Row
    If rowCount > 4 Then
        For i = 5 To rowCount
            r_sh = Sheets("售后详情").Range("B" & Sheets(1).Rows.Count).End(xlUp).Row + 1
            Sheets("售后详情").Cells(r_sh, "A") = Cells(i, "B") '原单号退回_自动日期
            Sheets("售后详情").Cells(r_sh, "B") = Cells(i, "C") '原单号退回_拦截或拒收
            Sheets("售后详情").Cells(r_sh, "C") = Cells(i, "D") '原单号退回_状态
            
            Sheets("售后详情").Cells(r_sh, "F") = Cells(i, "G") '退货退款_自动日期
            Sheets("售后详情").Cells(r_sh, "G") = Cells(i, "H") '退货退款_订单号
            Sheets("售后详情").Cells(r_sh, "H") = Cells(i, "I") '退货退款_退回单号
            Sheets("售后详情").Cells(r_sh, "I") = Cells(i, "J") '退货退款_数量
            
            r_th = Sheets("退货入库").Range("B" & Sheets(1).Rows.Count).End(xlUp).Row
            Debug.Print r_th
            c_th = Sheets("退货入库").Range("b" & r_th).End(xlToRight).Column
            If c_th >= 12 Then
                c_th = 1
                r_th = r_th + 1
            End If
            Debug.Print r_th, c_th
'            Sheets("退货入库").Cells(r_th, c_th) = Cells(i, "M") '退货入库_自动日期
            Sheets("退货入库").Cells(r_th, c_th + 1) = Cells(i, "N") '退货入库_退回单号
            Range("c" & i & ",d" & i & ",H" & i & ",I" & i & ",J" & i & ",N" & i).ClearContents
        Next i
        bn = MsgBox("同步成功" & rowCount - 4 & "条记录", vbOKOnly, "消息")
    End If
   
End Sub