ExcelVBA/文字列に付与
の編集
https://sundays.ddns.net/?ExcelVBA/%E6%96%87%E5%AD%97%E5%88%97%E3%81%AB%E4%BB%98%E4%B8%8E
[
トップ
] [
編集
|
差分
|
履歴
|
添付
|
リロード
] [
新規
|
一覧
|
検索
|
最終更新
|
ヘルプ
]
-- 雛形とするページ --
(no template pages)
#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]")
