ExcelVBA/文字列に付与
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
開始行:
#navi(../)
Option Base 1
Sub 配列()
Dim A As Variant
Dim B(100, 5) As String
'データが存在する領域を選択します
Selection.CurrentRegion.Select
'選択された範囲を取得します
Select_Range = ActiveWindow.RangeSelection.Address
A = Range(Select_Range).Value
For i = 1 To 20
B(i, 2) = "あ" & A(i, 2) & "あ"
'MsgBox B(i, 2)
Next
Range("H1:L10000") = B
End Sub
#navi(../)
終了行:
#navi(../)
Option Base 1
Sub 配列()
Dim A As Variant
Dim B(100, 5) As String
'データが存在する領域を選択します
Selection.CurrentRegion.Select
'選択された範囲を取得します
Select_Range = ActiveWindow.RangeSelection.Address
A = Range(Select_Range).Value
For i = 1 To 20
B(i, 2) = "あ" & A(i, 2) & "あ"
'MsgBox B(i, 2)
Next
Range("H1:L10000") = B
End Sub
#navi(../)
ページ名:
![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
