- 帖子
- 36
- 主題
- 10
- 精華
- 0
- 積分
- 93
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- office 2007
- 閱讀權限
- 20
- 註冊時間
- 2018-2-27
- 最後登錄
- 2022-2-25
|
回復 17# 准提部林
您好，謝謝您幫我改的，變的超級方便
想請教您幾個函數的問題
1.關於&或$與%，VBA書上沒出現過這個，不曉得是指什麼意思
2.
Dim MyArray(1 To 10, 5 To 15, 10 To 20) ' Declare array variables.
Upper = UBound(MyArray, 1) ' Returns 10.
Upper = UBound(MyArray, 3) ' Returns 20.
網路上只看過上面這種用法
Arr = [n13].CurrentRegion
UBound(Arr, 2)>>>>這是指什麼意思呢？
3.資料來源目前會有兩種，第一種是步驟1>步驟2>步驟3....這您上次有幫我解決
若是第二種可直接貼上步驟2，並且登記到步驟3......可以改成如果步驟1是空格直接抓步驟2貼上步驟3嗎？- Sub 資料轉置貼上()
- Dim Arr, Brr, i&, j&, T$, R&, C%
- Range("a13:g2000").ClearContents
- If Arr = [n13].CurrentRegion <> "" Then
- ReDim Brr(1 To 2000, 1 To 7)
- For j = 1 To UBound(Arr, 2)
- For i = 1 To UBound(Arr)
- T = Arr(i, j): If T = "" Then GoTo i01
- C = C + 1: Brr(R + 1, C) = T
- If C = 7 Then C = 0: R = R + 1
- i01: Next i
- Next j
- [a13].Resize(R + 1, 7) = Brr
- Else
- End Sub
|
|
發表於 2021-11-25 11:55
| 
