帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2011-5-10 08:28 | 只看該作者

[發問] (已解決)關於陣列

本帖最後由 freeffly 於 2012-2-22 17:02 編輯

請問為何我欄的陣列可以出現我要的結果
可是行的陣列不行?
我的方法不對嗎?

陣列.rar (5.86 KB)

樓主熱帖

字典兩各字還真難理解

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

7^#

發表於 2011-5-11 08:28 | 只看該作者

回復 6# GBKEE

謝謝大大花這麼多時間回覆
先收下來研究一下

字典兩各字還真難理解

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2011-5-10 20:24 | 只看該作者

回復 5# freeffly
Ar( 2 TO 10 ,1 TO 3) 相當於工作表的[A2:C10]範圍的大小位置
第一維元素(2 T0 10 ) 相當於工作表的第2列到第10列
第二維元素(1 T0 3 ) 相當於工作表的第1欄到第3欄
A(2,1)=[A2],A(2,2)=[B2],A(2,3)=[C2]
A(3,1)=[A3],A(3,2)=[B3],A(3,3)=[C3]
A(4,1)=[A4],A(4,2)=[B3],A(4,3)=[C3]

'UBound 函數傳回 Long值，表示指定陣列某維最大可使用的陣列索引。
Sub EX()
Dim Ar()
Ar = [A2:C10].Value '請先自行在[A1:C10]範圍內建立資料
'UBound(Ar) Ar第一維最大可使用的陣列索引
'UBound(Ar,2) Ar第二維最大可使用的陣列索引
[E1].Resize(UBound(Ar), UBound(Ar, 2)) = Ar
[K1].Resize(UBound(Ar, 2), UBound(Ar)) = Application.WorksheetFunction.Transpose(Ar)
'使用轉置函數 Application.WorksheetFunction.Transpose
[E11].Resize(1, UBound(Ar, 2)) = Application.Index(Ar, 2)
'Application.Index(Ar, 2)->AR第一維的第2列
[E13].Resize(UBound(Ar, 2), 1) = Application.Transpose(Application.Index(Ar, 2))
'使用轉置AR第一維的第2列
End Sub

複製代碼

如 Ar = [A1:C10].Value ->Ar(1 To 10, 1 To 3)

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

5^#

發表於 2011-5-10 17:41 | 只看該作者

回復 4# GBKEE

那一句是轉置的功能喔
   因為這各東西是朋友給我的
   我還看不太懂要問他為什麼陣列結果跟我不一樣
   沒空回答我

   所以陣列用在行的部份就要轉置才能得到結果囉

字典兩各字還真難理解

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

4^#

發表於 2011-5-10 13:35 | 只看該作者

回復 3# freeffly
ReDim brr(1 To 2, 1 To n + 1) 就須要轉置

Private Sub CommandButton1_Click()
Dim arr() As String, brr() As String
s = Range("a1").Value
arr = Split(s, ",")
n = UBound(arr)
ReDim brr(1 To 2, 1 To n + 1)
For i = 1 To n + 1
If Right(arr(i - 1), 3) = "(女)" Then
brr(1, i) = Left(arr(i - 1), Len(arr(i - 1)) - 3)
brr(2, i) = "女"
Else
brr(1, i) = arr(i - 1)
brr(2, i) = "女"
End If
Next
Range("b6").Resize(n, 2) = Application.Transpose(brr)
End Sub

複製代碼

TOP

freeffly

高中生 Rank: 3 Rank: 3

帖子: 586
主題: 123
精華: 0
積分: 763
點名: 0
作業系統: WINDOW7
軟體版本: Office 2003
閱讀權限: 50
性別: 男
註冊時間: 2010-5-16
最後登錄: 2017-3-14

熱烈參與勳章好學求知勳章

3^#

發表於 2011-5-10 12:41 | 只看該作者

回復 2# chin15

那為什麼附加檔的這各例子可以不用轉置?

Book1.rar (9.24 KB)

字典兩各字還真難理解

TOP

chin15

中學生 Rank: 2

帖子: 227
主題: 3
精華: 1
積分: 273
點名: 0
作業系統: XP
軟體版本: XP
閱讀權限: 20
性別: 女
註冊時間: 2011-3-22
最後登錄: 2013-1-29

2^#

發表於 2011-5-10 08:40 | 只看該作者

ActiveCell.Resize(1, 5) = Array("AA01", "AA02", "AA05", "AA07", "AA08")
ActiveCell.Resize(5, 1) = Application.Transpose(Array("AA01", "AA02", "AA05", "AA07", "AA08"))
你的陣列是一維橫向陣列
要放在直向儲存格區域必須要轉置

TOP