VBA和宏，批量替换，双层循环

gabjerome · 发表于 2012-8-22 16:37

请教各位高手，如何按照一数据库批量替换某单元格的数值，有双层的，如：
SHEET1
   A                   B                      C                            D
   123                456                   789                         1234
先批量替换ABC数据，ABC  3个单元格数字在一起，再批量替换 D 的数据，数据从SHEET2  的 A1 B1 C1 D1 开始。
SHEET2
      A                      B                   C                            D
  1 123                   456                789                      1234
  2    223                256                289                      2234
  3    323                356                389                         3234
  4 423                   456                489                      4234
  5    523                556                589                      5234
  6                                                                                  6234
  7                                                                                  7234
8                                                                                  8234
9                                                                                  9234
10                                                                                  0234
...........
1）：先替换A1、B1、C1三个,同时按照D 列数据批量替换，
2）同理，替换A2、B2、C2三个，再按照D列数据替换，
3）替换A3、B3、C3，再替换D列，一直类推（数据很多，这里省略），帮忙写下代码，谢谢。

ws278106483 · 发表于 2012-8-22 16:52

Sub th()
Dim x, y As Integer
For x = 1 To 4
For y = 1 To 8
Sheets("sheet1").Cells(y, x) = Sheets("sheet2").Cells(y, x)
Next y
Next x
End Sub

复制代码

ws278106483 · 发表于 2012-8-22 16:53

我不知道可不可以。

ws278106483 · 发表于 2012-8-22 16:55

Sub th1()
Dim x, y As Integer
For y = 1 To 8
For x = 1 To 4
Sheets("sheet1").Cells(y, x) = Sheets("sheet2").Cells(y, x)
Next x
Next y
End Sub

复制代码

gabjerome · 发表于 2012-8-22 17:17

ws278106483 发表于 2012-8-22 16:55

谢谢，我的意思是SHEET2的ABCD都只替换SHEET1里面的A1、B1、C1、D1单元格，按照顺序一一代入，我把附件上传下。

VBA-6.rar (172.08 KB, 下载次数: 22)

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

VBA和宏，批量替换，双层循环

相关帖子