③配列
関連タイピング
-
プレイ回数5621 長文英字1327打 -
プレイ回数268 長文英字328打 -
プレイ回数354 長文英字293打
-
プレイ回数422 長文かな360打
-
最適化の練習用
プレイ回数230 短文かな87打
問題文
ふりがな非表示
ふりがな表示
(ｄｉｍ ｍｙａｒｒａｙ１ ａｓ ｖａｒｉａｎｔ)
Dim MyArray1 As Variant
(ｄｉｍ ｍｙａｒｒａｙ２（） ａｓ ｖａｒｉａｎｔ)
Dim MyArray2() As Variant
(ｄｉｍ ｍｙａｒｒａｙ３（） ａｓ ｖａｒｉａｎｔ)
Dim MyArray3() As Variant
(ｄｉｍ ｉ ａｓ ｌｏｎｇ)
Dim i As Long
(ｄｉｍ ｊ ａｓ ｌｏｎｇ)
Dim j As long
(ｄｉｍ ｉｘ ａｓ ｌｏｎｇ：ｉｘ＝０)
Dim ix As long:ix=0
(ｍｙａｒｒａｙ１＝ｃｅｌｌｓ（，）．ｃｕｒｒｅｎｔｒｅｇｉｏｎ．ｖａｌｕｅ)
MyArray1=cells(,).CurrentRegion.Valu
(ｆｏｒ ｉ＝１ ｔｏ ｕｂｏｕｎｄ（ｍｙａｒｒａｙ１，１）)
For i=1 to Ubound(MyArray1,1)
(ｉｆ ｍｙａｒｒａｙ１（ｉ， ） ｔｈｅｎ
ｉｘ＝ｉｘ＋１)
If MyArray1(i, ) then
ix=ix+1
(ｒｅｄｉｍ ｐｒｅｓｅｒｖｅ ｍｙａｒｒａｙ２（ ，ｉｘ）)
Redim Preserve MyArray2( ,ix)
(ｍｙａｒｒａｙ２（１，ｉｘ）＝ｍｙａｒｒａｙ１（ｉ， ）)
MyArray2(1,ix)=MyArray1(i, )
(ｍｙａｒｒａｙ２（２，ｉｘ）＝ｍｙａｒｒａｙ１（ｉ， ）)
MyArray2(2,ix)=MyArray1(i, )
(ｅｎｄ ｉｆ
ｎｅｘｔ ｉ)
End if
Next i
(ｒｅｄｉｍ ｍｙａｒｒａｙ３（ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，２）)
ReDim MyArray3(Ubound(MyArray2,2)
(，ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，１））)
,UBound(MyArray2,1))
(ｆｏｒ ｉ＝１ ｔｏ ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，２）)
For i=1 to UBound(MyArray2,2)
(ｆｏｒ ｊ＝１ ｔｏ ｕｂｏｕｎｄ（ｍｙａｒｒａｙ２，１）)
For j=1 to UBound(MyArray2,1)
(ｍｙａｒｒａｙ３（ｉ，ｊ）＝ｍｙａｒｒａｙ２（ｊ，ｉ）)
MyArray3(i,j)=MyArray2(j,i)
(ｎｅｘｔ ｊ
ｎｅｘｔ ｉ)
Next j
Next i
(ｒａｎｇｅ（ｃｅｌｌｓ（１，１）)
Range(cells(1,1)
など
(，ｃｅｌｌｓ（ｕｂｏｕｎｄ（ｍｙａｒｒａｙ３，１）)
,Cells(UBound(MyArray3,1)
(，ｕｂｏｕｎｄ（ｍｙａｒｒａｙ３，２）））．ｖａｌｕｅ＝ｍｙａｒｒａｙ３)
,UBound(MyArray3,2).Value=MyArray3
(ｗｏｒｋｂｏｏｋｓ（ｍｙｆｉｌｅ．ｎａｍｅ）)
Workbooks(MyFile.Name)
(．ｃｌｏｓｅ ｓａｖｅｃｈａｎｇｅｓ：＝ｆａｌｓｅ)
.Close savechanges:=False
(ｍｙｆｉｌｅ．ｎａｍｅ＝ｍｙｆｓｏ．ｇｅｔｂａｓｅｎａｍｅ（ｍｙｆ） ＆)
MyFile.Name=MyFSO.GetBaseName(MyF) &
(ａｐｐｌｉｃａｔｉｏｎ．ｓｃｒｅｅｎｕｐｄａｔｉｎｇ＝ｔｒｕｅ)
Application.ScreenUpdating=True
(ａｐｐｌｉｃａｔｉｏｎ．ｄｉｓｐｌａｙａｌｅｒｔｓ＝ｔｒｕｅ)
Application.DisplayAlerts=True