[已解决]如何从 A1:Z1 每次读取三栏把结果一一放到A4,B4,C4,D4,E4

niko88819

谢谢老师

最佳答案

月排行榜 / 总排行榜

李建军

2015-8-26 21:29

1. =PHONETIC(OFFSET($A1,,COLUMN()*3-3,,3))

复制代码

右拉~

跳转到最佳答案楼层

李建军

1. =PHONETIC(OFFSET($A1,,COLUMN()*3-3,,3))

复制代码

右拉~

心正意诚身修

=PHONETIC(INDIRECT(ADDRESS(1,COLUMN(A1)*3-2)&":"&ADDRESS(1,COLUMN(A1)*3)))
见附件

yorkchenshunan

1. Sub jh()
   
2. Dim ar1
   
3. Dim ar2
   
4. Dim n1 As Integer
   
5. Dim n2 As Integer
   
6. Range("4:4").ClearContents
   
7. ar1 = Range(Cells(1, 1), Cells(1, Range("iv1").End(xlToLeft).Column))
   
8. n2 = Application.WorksheetFunction.RoundUp(UBound(ar1, 2) / 3, 0)
   
9. ReDim ar2(1 To n2)
   
10. For n1 = 1 To UBound(ar2)
    
11.     If UBound(ar1, 2) >= n1 * 3 Then
    
12.         ar2(n1) = ar1(1, n1 * 3 - 2) & ar1(1, n1 * 3 - 1) & ar1(1, n1 * 3)
    
13.     ElseIf UBound(ar1, 2) >= n1 * 3 - 1 Then
    
14.         ar2(n1) = ar1(1, n1 * 3 - 2) & ar1(1, n1 * 3 - 1)
    
15.     Else
    
16.         ar2(n1) = ar1(1, n1 * 3 - 2)
    
17.     End If
    
18. Next n1
    
19.     Range("a4").Resize(, UBound(ar2)) = ar2
    
20. End Sub

复制代码

文件见附件

niko88819

多谢三位老师