Sub 配列1_1()
Dim da(5, 100) As String
da(1, 1) = "AAA"
 
For i = 0 To 5
    For j = 0 To 100
        da(i, j) = ""
    Next
Next
MsgBox "データチェック(" & da(1, 1) & ")"
End Sub
--------------------------------------------------------
Sub 配列1_2()
ReDim da(5, 100) As String
da(1, 1) = "AAA"
 
ReDim da(5, 100) As String
MsgBox "データチェック(" & da(1, 1) & ")"
End Sub
--------------------------------------------------------
Sub 配列1_3()
Dim da(5, 100) As String
da(1, 1) = "AAA"
 
Erase da
MsgBox "データチェック(" & da(1, 1) & ")"
End Sub

Sub 配列2()
 
Dim dat(2) As String
Dim datstr As String
dat(0) = "ABC"
dat(1) = "DEF"
dat(2) = "GHI"
 
    datstr = Join(dat) & vbCrLf                    '結果→ABC DEF FHI
    datstr = datstr & Join(dat, "") & vbCrLf   '結果→ABCDEFFHI
    datstr = datstr & Join(dat, "|")               '結果→ABC|DEF|FHI
 
    MsgBox datstr
End Sub

Sub 配列3()
Dim w  As Integer
Dim week As Variant
  week = Array("日", "月", "火", "水", "木", "金", "土")
    hia = InputBox("｢年/月／日｣を入力して下さい")
    If IsDate(hia) Then
        hi = CDate(hia)
        hi = Format(hi, "yyyy""年""mm""月""dd""日""")
    Else
        MsgBox "｢年/月／日｣を入力して下さい"
        Exit Sub
    End If
        w = Weekday(hi)
    MsgBox hi & " は " & week(w - 1) & "曜日です"
End Sub

Sub 配列4()
Dim dbd As Variant      'セルデ−タ処理
Dim i As Integer       'カウンタ
Dim endr As Integer    '最終行
Dim endc As Integer    '最終列
 
ThisWorkbook.Sheets("Sheet1").Select
Application.ScreenUpdating = False
 
セル範囲
  Selection.SpecialCells(xlCellTypeLastCell).Select
      endr = ActiveCell.Row
      endc = ActiveCell.Column
 
ReDim dbd(endr, endc)
 
dbd = Range("A1").CurrentRegion.Value
 
ThisWorkbook.Sheets("Sheet3").Select
    Cells(1, 1) = "dt=new Array();"
For i = 1 To endr
    Cells(i + 1, 1) = "dt[" & i & "]=" & "'" & dbd(i, 1) & _
    "|" & dbd(i, 2) & "'"
Next
 
End Sub

Sub 配列5()
Dim txtpas As String           'サンプルtxtファイル保存場所
Dim dat(224, 1) As String      '2次配列宣言
Dim i As Integer               'カウンター
 
ThisWorkbook.Sheets("Sheet1").Select
Application.ScreenUpdating = False
 
txtpas = ThisWorkbook.Path & "\" & "Listsanple.txt"
txtデ−タ取り込み
    i = 0
    Open txtpas For Input As #1
Do Until EOF(1)
    Input #1, dat(i, 0), dat(i, 1)
    i = i + 1
Loop
Close #1
 
r = UBound(dat, 1)
c = UBound(dat, 2)
 
セルへ書き込み
Cells(1, 1) = "銘柄コード": Cells(1, 2) = "名称":
Range(Cells(2, 1), Cells(i + 1, 2)).Value = dat
 
Range(Cells(2, 1), Cells(r + 2, c + 1)).Value = dat
 
 
End Sub

Sub 配列6_1()
Dim dat(10) As Integer
dat(1) = 3: dat(2) = 1: dat(3) = 8: dat(4) = 0: dat(5) = 9  'サンプル数字
dat(6) = 4: dat(7) = 2: dat(8) = 5: dat(9) = 7: dat(10) = 6
 
For j = 1 To 10
    For r = j + 1 To 10
      If dat(j) > dat(r) Then
         datm = dat(j)
         dat(j) = dat(r)
         dat(r) = datm
      End If
     Next
Next
 
MsgBox dat(1) & " " & dat(2) & " " & dat(3) & " " & dat(4) & " " & dat(5) _
& " " & dat(6) & " " & dat(7) & " " & dat(8) & " " & dat(9) & " " & dat(10)
End Sub

Sub 配列6_2()
Dim dat As Variant
dat = Array(3, 1, 8, 0, 9, 4, 2, 5, 7, 6)    'サンプル数字
 
For j = 0 To 9
    For r = 9 To j Step -1
      If dat(j) < dat(r) Then
         datm = dat(j)
         dat(j) = dat(r)
         dat(r) = datm
      End If
     Next
Next
 
MsgBox dat(0) & " " & dat(1) & " " & dat(2) & " " & dat(3) & " " & dat(4) _
& " " & dat(5) & " " & dat(6) & " " & dat(7) & " " & dat(8) & " " & dat(9)
End Sub

Sub 配列6_3()
Dim dat As Variant
dat = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "")  'サンプル文字
 
    For J = 9 To 3 Step -1
        dat(J + 1) = dat(J)
    Next
    dat(3) = "x"
 
MsgBox dat(0) & " " & dat(1) & " " & dat(2) & " " & dat(3) & " " & dat(4) _
& " " & dat(5) & " " & dat(6) & " " & dat(7) & " " & dat(8) & " " & dat(9)
 
End Sub

Sub 配列6_4()
Dim dat As Variant
dat = Array("A", "B", "C", "D", "E", "", "F", "G", "H", "I", "J") 'サンプル文字
 
   For i = 0 To 9
      If dat(i) = "" Then
         For j = i To 9
             dat(j) = dat(j + 1)
         Next
      End If
   Next
 
MsgBox dat(0) & " " & dat(1) & " " & dat(2) & " " & dat(3) & " " & dat(4) _
& " " & dat(5) & " " & dat(6) & " " & dat(7) & " " & dat(8) & " " & dat(9)
End Sub

Sub 配列6_5()
Dim dat As Variant
dat = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", _
   "0", "1", "2", "3", "4", "5", "6", "7", "8", "9", _
   "A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
 
For i = 1 To 30
    C = (i - 1) Mod 5 + 1
    r = (i - 1) \ 5 + 1
    Cells(r, C) = dat(i - 1)
Next
End Sub

Sub 配列7()
Dim i As Integer
Dim haiur As Variant
 
haiur = Split(Cells(1, 2), "/")
 
On Error Resume Next
Do
    Cells(i + 3, 1) = i
    Cells(i + 3, 2) = haiur(i)
        If Err = 9 Then Exit Do
    i = i + 1
Loop
Cells(i + 3, 1) = ""
 
haiur(0) = "": haiur(1) = "": haiur(2) = "C:\2第2HP"
Cells(i + 5, 2) = Mid(Join(haiur, "\"), 3)
Cells(i + 5, 1) = "PC上URL⇒"
 
End Sub