[已解决]查找表填入初始余额2

龙送农

用VBA：“按钮 8”是[url=]byhdch[/url]帮写的代码，现在想变为通过G4至U4账名称查找后边相关表，在相关表单元格N5填入对应G5至U5的数据。后面的表不规则排放，账表可能时多时少不定，各表单元格N5是固定的。

最佳答案

月排行榜 / 总排行榜

冥王

2014-12-18 11:38

1. Sub demo()
   
2.     Dim i As Long
   
3.     Dim Sr As String
   
4.     On Error Resume Next
   
5.     For i = 7 To Range("G4").End(xlToRight).Column
   
6.     Sr = Cells(4, i)
   
7.         Worksheets(Sr).Cells(5, "N") = Cells(5, i)
   
8.     Next i
   
9. End Sub

复制代码

跳转到最佳答案楼层

冥王

1. Sub demo()
   
2.     Dim i As Long
   
3.     Dim Sr As String
   
4.     On Error Resume Next
   
5.     For i = 7 To Range("G4").End(xlToRight).Column
   
6.     Sr = Cells(4, i)
   
7.         Worksheets(Sr).Cells(5, "N") = Cells(5, i)
   
8.     Next i
   
9. End Sub

复制代码

qh8600

1. Sub demo()
   
2.     Dim ar, i, x
   
3.     x = Cells(4, Columns.Count).End(1).Column
   
4.     ar = Range(Cells(4, 7), Cells(5, x))
   
5.     For i = 1 To UBound(ar, 2)
   
6.         ar(2, i) = Sheets(ar(1, i)).Range("n5").Value
   
7.     Next
   
8.     Range("G4").Resize(2, UBound(ar, 2)) = ar
   
9. End Sub

复制代码

我也写了一个

龙送农

qh8600 发表于 2014-12-18 11:45
我也写了一个

老师：你写的这个下标越界。谢谢！

qh8600

龙送农 发表于 2014-12-18 12:01
老师：你写的这个下标越界。谢谢！

你的工作表少了个账2哈

龙送农

谢谢冥王和qh8600两位老师

ad4561

最终 附件呢？