[英]Repeat a Number N Times in an Array
使用Excel VBA。
我正在嘗試使用這樣的重復模式創建一個數組:
a = Array(1,1,1,1,1,2,2,2,2,2,2)
有沒有一個簡潔的解決方案(沒有通過循環)這樣做? 在幾乎任何其他統計語言中,這都是通過重復功能完成的。 例如,R中的“rep”函數或Matlab中的“repmat”函數:
a = [repmat(1,1,5),repmat(2,1,6)]
首先不對所有內容進行硬編碼的原因是因為實際數組的長度取決於其他一些變量。
輸出: A,B,B,1,1,1,2,2,2,2
Sub ArrayHack()
Dim a()
BuildArray a, "A", 1
BuildArray a, "B", 2
BuildArray a, 1, 3
BuildArray a, 2, 4
Debug.Print Join(a, ",")
End Sub
Function BuildArray(a As Variant, v As Variant, n As Integer)
Dim i As Integer, count As Integer
On Error Resume Next
count = UBound(a)
If Err.Number <> 0 Then
ReDim a(0)
count = -1
End If
On Error GoTo 0
ReDim Preserve a(count + n)
For i = 1 To n
a(count + i) = v
Next
End Function
產出: 1,1,1,1,1,2,2,2,2,2
Sub ArrayHack2()
Dim a
Dim s As String
s = Replace(String(5, ","), ",", 1 & ",") & Replace(String(5, ","), ",", 2 & ",")
s = Left(s, Len(s) - 1)
a = Split(s, ",")
Debug.Print Join(a, ",")
End Sub
這是一個有點靈活的功能:
Function BuildArray(ParamArray params()) As Variant
Dim A As Variant, v As Variant
Dim i As Long, j As Long, k As Long, n As Long, m As Long, b As Long
n = UBound(params)
If n Mod 2 = 0 Then
b = params(n)
n = n - 1
End If
For i = 1 To n Step 2
m = m + params(i)
Next i
ReDim A(b To b + m - 1)
k = b
For i = 0 To n - 1 Step 2
v = params(i)
For j = 1 To params(i + 1)
A(k) = v
k = k + 1
Next j
Next i
BuildArray = A
End Function
它需要任意數量的參數。 如果存在偶數個參數,則將它們分解為形式v,i
連續對v,i
其中v
是值, i
是重復該值的次數,返回具有第一個索引0的結果數組。如果存在奇數個傳遞參數,最后一個參數被解釋為數組的基數。 例如:
Sub test()
Dim A As Variant
A = BuildArray(1, 3, 2, 4) 'creates 0-based array [1,1,1,2,2,2,2]
'verify:
Debug.Print "A = " & LBound(A) & " to " & UBound(A)
Debug.Print "Items: " & Join(A, ",")
A = BuildArray(1, 3, 2, 4, 1) 'creates 1-based array [1,1,1,2,2,2,2]
'verify:
Debug.Print "A = " & LBound(A) & " to " & UBound(A)
Debug.Print "Items: " & Join(A, ",")
End Sub
輸出:
A = 0 to 6
Items: 1,1,1,2,2,2,2
A = 1 to 7
Items: 1,1,1,2,2,2,2
像這樣?
Const U = 11 'U = (4 + Max(i)) * Max(i) + Max(j)
Sub ManipulatingArray()
Dim InputArray As String, i As Long, j As Long, MyArray(1 To U) As Variant
For i = 0 To 1
For j = 1 To 5 + i
MyArray((4 + i) * i + j) = i + 1
Next
Next
Debug.Print Join(MyArray, ",")
End Sub
上面的代碼將以輸出為例。
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.