VBA数据追加

bacoder 2015-01-13 10:02:46

有会VBA的大牛吗？小生遇一问题，求大牛解决。

我用VBA实现了从A文件读取数据，追加在B文件中。

如果B文件为空，200多条数据几秒就能追加上，但当B文件中有1000多条数据时，要执行10分钟才能追加完。
如果B文件为空，从1000行以后追加也很快。
如果A文件只有一两条，执行很快。
如果A文件有20 多条就要执行1分多钟。

我追加的方式是根据一列数据，查找他为 “” 的单元格，再往后执行追加。那个大牛能给解释解释这是为什么吗？如何改进？

...全文

1531 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

dsd999 2015-02-09

打赏
举报

引用 14 楼 bacoder 的回复:

[quote=引用 13 楼 dsd999 的回复:] 不用全贴出来，就是想看看赋值那块的代码。

已经写出来了啊！就是简单地value = value 我代码简写的那部分： reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value[/quote] 想看看你赋值的单元格有没有规律，有规律的话就不用一个一个单元格赋值了。

bacoder 2015-02-07

打赏
举报

引用 13 楼 dsd999 的回复:

不用全贴出来，就是想看看赋值那块的代码。

dsd999 2015-02-06

打赏
举报

不用全贴出来，就是想看看赋值那块的代码。

bacoder 2015-02-05

打赏
举报

源代码没办法贴，在公司，管理比较严格。以下是我现写的核心Copy 代码。望大神指点


sub  extractInfo(byval startTime as date, byval endTime as data , byval resultsheet as worksheet, byval sourcesheet as worksheet)
dim r_rowindex, s_rowindex, lastRow as integer
dim timeStr as String

r_rowindex = 4
s_rowindex = 4

' 找到最后一行 resultsheet 存放结果的sheet页
do while resultsheet.cells(rowindex, 2).value <> ""
    r_rowindex = r_rowindex + 1
loop

do while sourcesheet.cells(s_rowindex, 4).value <> ""
    timeStr = sourcesheet.cells(s_rowindex, 4).value
    '通过时间筛选出符合条件的记录
    if  idDate(timeStr ) and  startTime < timeStr and timeStr < endTime then
        ‘列赋值（有很多单元格的字符很多）
        reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value
        reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value
        reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value
        reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value
        reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value
        reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value
        reusltsheet.cells(r_rowindex , 2).value = source.cells(s_rowindex, 1).value
        
        ’对该列数据的分析
       if   reusltsheet.cells(r_riwindex,1) = "" then
          ' 给单元格填充颜色 
       end if
       if   reusltsheet.cells(r_riwindex,1) = "" then
          ' 给单元格填充颜色
       end if
       if   reusltsheet.cells(r_riwindex,1) = "" then
          ' 给单元格填充颜色
       end if

        r_rowindex = r_rowindex + 1
    end if

    s_rowindex = s_rowindex + 1
loop
end sub

bacoder 2015-02-03