返回列表 上一主題 發帖

[發問] 資料轉置貼上

回復 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嗎?
  1. Sub 資料轉置貼上()

  2. Dim Arr, Brr, i&, j&, T$, R&, C%
  3. Range("a13:g2000").ClearContents

  4. If Arr = [n13].CurrentRegion <> "" Then
  5. ReDim Brr(1 To 2000, 1 To 7)
  6. For j = 1 To UBound(Arr, 2)
  7.     For i = 1 To UBound(Arr)
  8.         T = Arr(i, j): If T = "" Then GoTo i01
  9.         C = C + 1: Brr(R + 1, C) = T
  10.         If C = 7 Then C = 0: R = R + 1
  11. i01: Next i
  12. Next j
  13. [a13].Resize(R + 1, 7) = Brr
  14. Else


  15. End Sub
複製代碼

Xl0000798.zip (45.43 KB)

TOP

回復 21# samwang


不好意思,我沒說清楚,
因為來源會有兩種格式,
如是步驟1的格式,流程就是步驟1>步驟2>步驟3
如是步驟2的格式,流程就是步驟2>步驟3

TOP

如何判斷資料來源是 1 還是 2 區域的資料?
如果2 個區域都有資料時要以哪個為主 ?
samwang 發表於 2021-11-25 12:15



    不會兩個區域都有資料,只會有其中一個

TOP

回復  蘿蔔泥


  1.關於&或$與%,VBA書上沒出現過這個,不曉得是指什麼意思 >>可上網找一下就有,那些 ...
samwang 發表於 2021-11-25 12:27


請問VBA是哪個科系會學到呢?
我以前沒學過只是工作上需要,目前我都是自己買書回來學習,
很難學會怎應用,而且南部很少有這種課可以上,
是否有推薦的書籍可以看呢?

TOP

        靜思自在 : 能善用時間的人,必能掌握自己努力的方向。
返回列表 上一主題