[已解决]批量插入数据的问题

greenli · 发表于 2015-7-29 19:50

本帖最后由 greenli 于 2015-7-30 11:26 编辑

附件

批量插入数据.rar (77.66 KB, 下载次数: 11)

zjdh · 发表于 2015-7-30 09:18

问题并不难，关键是没说明白！
各工作簿每一行有5列数据，你输入2行1列数据，如何录入？录在那一列？

greenli · 发表于 2015-7-30 09:34

本帖最后由 greenli 于 2015-7-30 09:36 编辑

zjdh 发表于 2015-7-30 09:18
问题并不难，关键是没说明白！
各工作簿每一行有5列数据，你输入2行1列数据，如何录入？录在那一列？

谢谢老师指教,说明确实有点让人误解之处.
其实所有工作薄数据,都是统一的,每个工作薄中的数据,无论是行数,还是列数,都是一样的.
说简单一点:就是在每个工作薄的最后面两行添加数据.
要添加的数据,第一行是A1的数;第二行是A2的数

比如最后面两行两个序号是110与111,那么,第110行,添加A1的数据;第111行添加A2的数.
需要说明的是:最后面两行,同一批次,都是一样的.不同批次,不一样.

我在附件中想要说明的一点可能误导了大家:我想说的是:假如表中的数据,只有五列,那么最后面两行,添加数据时,也只能到第五列那个地方.不能整行都添加.

同一批次,列数相同;不同批次,列数是不一样的.有时多达上万列.

zjdh · 发表于 2015-7-30 10:23

越看越糊涂啦！
你就做一个已录入新数据的附件吧！

greenli · 发表于 2015-7-30 10:29

zjdh 发表于 2015-7-30 10:23
越看越糊涂啦！
你就做一个已录入新数据的附件吧！

谢谢老师了.附结果如下

结果.rar (67.5 KB, 下载次数: 3)

爱疯 · 发表于 2015-7-30 11:20

Sub test1()
Dim A, B, wk, p$, f$, i, j, r, c

Application.ScreenUpdating = False
A = Range("a1").CurrentRegion
Set wk = ThisWorkbook
p = wk.Path & "\"
f = Dir(p & "*.xlsx")

Do While f <> ""
      If f <> wk.Name Then
         With Workbooks.Open(p & f)
            '''''''''''''''''''''''''''''''''''''''''''
            r = Range("a1").CurrentRegion.Rows.Count
            c = Range("a1").CurrentRegion.Columns.Count
            ReDim B(1 To UBound(A), 1 To c)
            For i = 1 To UBound(B)
                  For j = 1 To UBound(B, 2)
                     B(i, j) = A(i, 1)
                  Next j
            Next i
            Cells(r + 1, 1).Resize(UBound(B), UBound(B, 2)) = B
            '''''''''''''''''''''''''''''''''''''''''''
            .Close 1
         End With
      End If
      f = Dir
Loop
End Sub

插入数据.rar (84.11 KB, 下载次数: 7)

		自动登录	找回密码
密码			注册

[已解决]批量插入数据的问题

评分