路由人生 软件工具 vba 将一个表中的数据写入另外一个表中

vba 将一个表中的数据写入另外一个表中

         到要将数据有选择的复制出来的时候,如果用筛选的方法的话比较麻烦,用vba来操作对有较大数据量的时候特别有用, 首先,设立一个坐标, sheet1的w1,sheet2的l1,坐标选择离数据很远的地方,通过坐标来确定行数与列数,在通过两个for循环,实现数据的自动写入。

Sub Macro2()

    Dim hh As Integer       ‘Sheet1行数
    Dim ll As Integer       ‘Sheet1列数
    Dim cc As Integer
    ff = Sheets(“Sheet2”).Range(“l1”)   ‘确定Sheet2有数据的行数为Sheet2表中的L1中的数量
    cc = Sheets(“Sheet1”).Range(“w1”)
    For hh = 1 To cc
      ff = ff + 1
        For ll = 1 To 5
       
        If Cells(hh, ll) <> “” Then
       
            Sheets(“Sheet2”).Cells(ff, ll) = Cells(hh, ll)            
        End If
        ff = Sheets(“Sheet2”).Range(“l1”)
        
        Next ll
      
        Next hh
   
    MsgBox “数据已录入Sheet2”
End Sub

实例下载:下载

本文来自网络,不代表路由人生立场,转载请注明出处。

作者:

发表评论

联系我们

联系我们

0898-0102021

在线咨询: QQ交谈

邮箱: yufe@yufe.me

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部