数据更新问题

msw2395

见下图，表2原有数据A2:F18,表1数据更新后，自动填充在表2原有数据的下一列(G列)中，原有数据不变。麻烦哪位大师帮忙解答下，谢谢！！

lss001

参考一下附件
数据更新.zip (21.27 KB, 下载次数: 14)

2024-9-22 11:02 上传

点击文件名下载附件

msw2395

lss001 发表于 2024-9-22 10:59
参考一下附件

可以了，非常感谢lss001老师的解答!!

gwjkkkkk

Sub test()
     Dim Rng As Range, iCol&
     Set Rng = Worksheets(1).[A2].CurrentRegion
     With Worksheets(2)
         iCol = .Cells(2, .Columns.Count).End(xlToLeft).Column + 1
         Rng.Copy .Cells(2, iCol)
         .Activate
     End With
End Sub

gwjkkkkk

参与一下。。。

msw2395

gwjkkkkk 发表于 2024-9-22 15:44
参与一下。。。

非常感谢gwjkkkkk侠圣的解答!!如果原始数据和更新表不在同一工作簿下，又如何设置呢？还望侠圣解答，谢谢!!

gwjkkkkk

Option Explicit
Sub test()
    Dim ar, i&, strFileName$, strPath$, m&, n&, vTemp
   
    strPath = ThisWorkbook.Path & "\"
    strFileName = strPath & "原始数据.xls"
   
    If Dir(strFileName) = "" Then MsgBox "原始数据不存在，请检查！": Exit Sub
   
    Application.ScreenUpdating = False
   
    With GetObject(strFileName)
        ar = .Worksheets(1).[A2].CurrentRegion.Value
        m = UBound(ar): n = m \ 2
        For i = 1 To UBound(ar)
            vTemp = ar(i, 1): ar(i, 1) = ar(m - i + 1, 1): ar(m - i + 1, 1) = vTemp
        Next i
        .Close False
    End With
   
    n = Cells(2, Columns.Count).End(xlToLeft).Column + 1
    m = IIf(m > 15, 15, m)
    Cells(2, n).Resize(m) = ar
   
    Application.ScreenUpdating = True
    Beep
End Sub

gwjkkkkk

请参考。。。

msw2395

gwjkkkkk 发表于 2024-9-22 17:47
请参考。。。

再次感谢gwjkkkkk侠圣的解答!!

msw2395

gwjkkkkk 发表于 2024-9-22 17:47
请参考。。。

gwjkkkkk侠圣您好！我前面没说明白，是要取最后15个数据（逆序），麻烦您再改下代码，谢谢!!