[已解决]怎么插行？

sdfsdfs

怎么插行，代码怎么修改？

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-9-17 20:51

已经测试，感觉没有问题，请测试：
增加了一个变量k,让它第一次符合粘贴条件的时候为1，然后就为0。也就是第一次粘贴时为.end(3)(3)，以后就变为end(3).(2)。
所以在循环前给K赋值为1，在第一次粘贴后就清空这个K值，让K=0。

跳转到最佳答案楼层

hwc2ycy

offset(1)不就一行了。

lover5460

sdfsdfs

hwc2ycy 发表于 2013-9-17 20:36
offset(1)不就一行了。

offset(1)放在哪？

上清宫主

w=2改为w=3
只是这代码……唉

yyyydddd8888

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     WOK = Dir(ThisWorkbook.Path & "\*.xls")
   
4.     k = 1
   
5.     Do While WOK <> ""
   
6.         If WOK <> ThisWorkbook.Name Then
   
7.             With Workbooks.Open(ThisWorkbook.Path & "" & WOK)
   
8.                 For i = 1 To .Sheets(1).Range("A65536").End(3).Row
   
9.                     If ThisWorkbook.Sheets(1).Range("A65536").End(3).Row = 1 Then
   
10.                         W = 10
    
11.                     Else
    
12.                         W = 2
    
13.                     End If
    
14.                     If .Sheets(1).Range("H" & i) = "备注" Then
    
15.                     .Sheets(1).Rows(i).Copy ThisWorkbook.Sheets(1).Range("A65536").End(3)(W + k)
    
16.                     k = 0
    
17.                     End If
    
18.                 Next
    
19.                 .Close False
    
20.             End With
    
21.         End If
    
22.         WOK = Dir
    
23.     Loop
    
24.     Application.ScreenUpdating = True
    
25. End Sub
    

复制代码

yyyydddd8888

已经测试，感觉没有问题，请测试：
增加了一个变量k,让它第一次符合粘贴条件的时候为1，然后就为0。也就是第一次粘贴时为.end(3)(3)，以后就变为end(3).(2)。
所以在循环前给K赋值为1，在第一次粘贴后就清空这个K值，让K=0。

sdfsdfs

上清宫主 发表于 2013-9-17 20:44
w=2改为w=3
只是这代码……唉

代码怎么了？

sdfsdfs

上清宫主 发表于 2013-9-17 20:44
w=2改为w=3
只是这代码……唉

代码有什么问题，是不是要修改？