求助！

gaozl · 发表于 2012-5-23 14:41

请高手帮忙把下面红色部分的代码补充完整
谢谢！
With Sheet3
  iRow_dn = [a19].End(xlUp).Row
  For i = 6 To iRow_dn

iRow_dn2 = .[A65536].End(xlUp).Row
                                             'B1单元格内如添加到指定位置（代码如何写）
.Cells(iRow_dn2 + 1, 1) = Cells(2, "b") 'B2单元格内如添加到指定位置
.Cells(iRow_dn2 + 1, 2) = Cells(3, "b") 'B3单元格内如添加到指定位置
.Cells(iRow_dn2 + 1, 3) = Cells(4, "b") 'B4单元格内如添加到指定位置
                                          'D2单元格内如添加到指定位置（代码如何写）
                                             'D3单元格内如添加到指定位置（代码如何写）
                                             'D4单元格内如添加到指定位置（代码如何写）

   For j = 4 To 9
.Cells(iRow_dn2 + 1, j) = Cells(i, j - 3)
Next j
   Next i
   End With

gaozl · 发表于 2012-5-23 15:41

帮帮忙吧！！！！！！！！！！！！！！

l00l00 · 发表于 2012-5-23 15:52

iRow_dn2 = .[A65536].End(xlUp).Row
  .Cells(iRow_dn2 + 1, 1) = Cells(1, "b")    'B1单元格内如添加到指定位置（代码如何写）
  .Cells(iRow_dn2 + 1, 2) = Cells(2, "b")  'B2单元格内如添加到指定位置
  .Cells(iRow_dn2 + 1, 3) = Cells(3, "b") 'B3单元格内如添加到指定位置
  .Cells(iRow_dn2 + 1, 4) = Cells(4, "b") 'B4单元格内如添加到指定位置
  .Cells(iRow_dn2 + 1, 5) = Cells(2, "d") 'D2单元格内如添加到指定位置（代码如何写）
  .Cells(iRow_dn2 + 1, 6) = Cells(3, "d") 'D3单元格内如添加到指定位置（代码如何写）
  .Cells(iRow_dn2 + 1, 7) = Cells(4, "d") 'D4单元格内如添加到指定位置（代码如何写）

gaozl · 发表于 2012-5-23 16:30

l00l00 发表于 2012-5-23 15:52
iRow_dn2 = .[A65536].End(xlUp).Row
.Cells(iRow_dn2 + 1, 1) = Cells(1, "b") 'B1单元格内如添加到 ...

不好意思
改过后还是不行
请在帮看看
谢谢！

l00l00 · 发表于 2012-5-23 17:41

你把工作簿传上来哦！

gaozl · 发表于 2012-5-23 17:56

l00l00 发表于 2012-5-23 17:41
你把工作簿传上来哦！

数据采集.rar (15.21 KB, 下载次数: 2)

l00l00 · 发表于 2012-5-23 18:06

你为什么把数据清了呢，这样不好测试呢！

l00l00 · 发表于 2012-5-23 19:18

你看现在对不对了？

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