[已解决]将数组内容隔列循环写入行

cunfu2010

如题，代码写了一半写不下去了。求帮助。Sub test()
arr = Array("张三", "李四", "王五")
For j = 1 To 15 Step 3
For i = LBound(arr) To UBound(arr)


Next
Next
End Sub
还有，合并单元格，如合并A1、B1、C1

最佳答案

月排行榜 / 总排行榜

today0427

2017-2-17 09:33

1. Sub test()
   
2.     Dim i%, j%, arr
   
3.         Cells.Clear
   
4.         arr = Array("张三", "李四", "王五")
   
5.         For j = 1 To 15 Step 3
   
6.             For i = LBound(arr) To UBound(arr)
   
7.                 Cells(i + 1, j) = arr(i) '为当前单元格写入数据
   
8.                 Cells(i + 1, j).Resize(1, 3).Merge '当前单元格扩展三列进行合并
   
9.                 Cells(i + 1, j).HorizontalAlignment = xlCenter '合并单元格水平居中
   
10.             Next
    
11.         Next
    
12.     [a1].CurrentRegion.Borders.LineStyle = 1  '添加框线
    
13. End Sub
    
14. 
    
15. Sub qc()
    
16.     Cells.Clear
    
17. End Sub

复制代码

跳转到最佳答案楼层

蓝桥玄霜

请见代码。

cunfu2010

蓝桥玄霜 发表于 2017-2-15 18:06
请见代码。

感谢蓝板。填充完后合并单元格怎么实现？如A2、B2、C2合并成一个单元格，其它一样合并

cunfu2010

求各位帮忙指点一下横向合并单元格

today0427

1. Sub test()
   
2.     With Range("A1:C1") '选择要合并的区域
   
3.         .Merge  '合并
   
4.         .HorizontalAlignment = xlCenter '合并后的单元格内容水平居中
   
5.     End With
   
6. End Sub

复制代码

初学的话可以通过录制宏来实现自己想要的效果。

cunfu2010

today0427 发表于 2017-2-17 09:08
初学的话可以通过录制宏来实现自己想要的效果。

谢谢！直接合并指定的单元格我会，现在是如何实现横向循环合并，类似附件第1行那种情况。

上清宫主

是这个意思吗？
for j = 1 to 15 step 3
     cells(1,j).resize(1,3).merge
next

today0427

1. Sub test()
   
2.     Dim i%, j%, arr
   
3.         Cells.Clear
   
4.         arr = Array("张三", "李四", "王五")
   
5.         For j = 1 To 15 Step 3
   
6.             For i = LBound(arr) To UBound(arr)
   
7.                 Cells(i + 1, j) = arr(i) '为当前单元格写入数据
   
8.                 Cells(i + 1, j).Resize(1, 3).Merge '当前单元格扩展三列进行合并
   
9.                 Cells(i + 1, j).HorizontalAlignment = xlCenter '合并单元格水平居中
   
10.             Next
    
11.         Next
    
12.     [a1].CurrentRegion.Borders.LineStyle = 1  '添加框线
    
13. End Sub
    
14. 
    
15. Sub qc()
    
16.     Cells.Clear
    
17. End Sub

复制代码

today0427

可以通过按F8键单步运行，观察程序每一步在工作表中的变化来理解代码的意思。

cunfu2010

today0427 发表于 2017-2-17 09:39
可以通过按F8键单步运行，观察程序每一步在工作表中的变化来理解代码的意思。

非常感谢，代码能理解，就是自己写时有时候写不出来。