EXCEL VBA 如何达到D列的效果

yi860214

EXCEL VBA 如何达到D列的效果
鹅的代码哪里错了。
Sub A()
Dim i As Integer
Dim rg As Integer
For i = 1 To Application.WorksheetFunction.Sum(Range("b1:b3"))
    For j = 1 To 3
    Cells(i, 4) = Cells(j, 1)
    Next
Next
End Sub

chxw68

重新写了一段供参考。

1. Sub A()
   
2.   Dim r%, i%, m%
   
3.   Dim arr, brr
   
4.   With Worksheets("sheet1")
   
5.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
6.     m = Application.Sum(.Range("b1:b" & r))
   
7.     arr = .Range("a1:b" & r)
   
8.   End With
   
9.   ReDim brr(1 To m)
   
10.   m = 0
    
11.   For i = 1 To UBound(arr)
    
12.     For j = 1 To arr(i, 2)
    
13.       m = m + 1
    
14.       brr(m) = arr(i, 1)
    
15.     Next
    
16.   Next
    
17.   With Worksheets("sheet1")
    
18.     .Range("d1").Resize(UBound(brr), 1) = Application.Transpose(brr)
    
19.   End With
    
20. End Sub

复制代码

百度不到去谷歌

Sub A()
Dim i As Integer, j, k
Dim rg As Integer, arr
arr = Range("A1").CurrentRegion
For i = 1 To UBound(arr)
    For j = 1 To arr(i, 2)
        k = k + 1
        Cells(k, 4) = Cells(i, 1)
    Next
Next
End Sub

chxw68

修改了楼主的程序：

1. Sub A()
   
2.   Dim i%, j%, m%
   
3.   Dim rg As Integer
   
4.   m = 0
   
5.   For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
   
6.       For j = 1 To Cells(i, 2)
   
7.         m = m + 1
   
8.         Cells(m, 4) = Cells(i, 1)
   
9.       Next
   
10.   Next
    
11. End Sub

复制代码

dqhtju

1. k = 1
   
2. For i = 1 To 3
   
3.     For j = 1 To Cells(i, 2)
   
4.         Cells(k, 4) = Cells(i, 1)
   
5.         k = k + 1
   
6.     Next
   
7. Next

复制代码

gufengaoyue

1. Sub gd()
   
2. arr = [a1:b3]
   
3. For a = 1 To UBound(arr)
   
4.     For b = 1 To arr(a, 2)
   
5.         X = X + 1
   
6.         Cells(X, 4) = arr(a, 1)
   
7.     Next
   
8. Next
   
9. End Sub

复制代码

yi860214

chxw68 发表于 2014-9-4 11:43
重新写了一段供参考。

brr(m)=arr(i,1)不太明白。是什么意思？

yi860214

gufengaoyue 发表于 2014-9-4 12:11

谢谢。很短的代码。问一下。有二处鹅不知道啥意思，能解释一下吗？
1）UBound(arr)
2）arr(a,2)

chxw68

yi860214 发表于 2014-9-4 12:39
brr(m)=arr(i,1)不太明白。是什么意思？

brr(m)=arr(i,1)是将二维数组arr第i行第1列元素的值赋给一维数组brr的第m个元素。