文字列を指定幅で分割する
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
[[excelの便利マクロ]]
* 文字列を指定幅で分割する [#cea395d3]
Sub SplitString()
c = ActiveCell.Column
r = ActiveCell.Row
Dim formatdesc() As Variant
ReDim formatdesc(199)
Cells(r + 1, c).Select
Range(Selection, Selection.End(xlToRight)).Select
s = 0
i = 0
For Each v In Selection
formatdesc(i) = Array(s, xlTextFormat)
s = s + v.Value * 2
i = i + 1
Next v
ReDim Preserve formatdesc(i - 1)
Cells(r, c).Select
Selection.TextToColumns Destination:=Range(Cells(r, c),...
FieldInfo:=formatdesc, _
TrailingMinusNumbers:=True
End Sub
#ref(201501-splitstring.png)
終了行:
[[excelの便利マクロ]]
* 文字列を指定幅で分割する [#cea395d3]
Sub SplitString()
c = ActiveCell.Column
r = ActiveCell.Row
Dim formatdesc() As Variant
ReDim formatdesc(199)
Cells(r + 1, c).Select
Range(Selection, Selection.End(xlToRight)).Select
s = 0
i = 0
For Each v In Selection
formatdesc(i) = Array(s, xlTextFormat)
s = s + v.Value * 2
i = i + 1
Next v
ReDim Preserve formatdesc(i - 1)
Cells(r, c).Select
Selection.TextToColumns Destination:=Range(Cells(r, c),...
FieldInfo:=formatdesc, _
TrailingMinusNumbers:=True
End Sub
#ref(201501-splitstring.png)
ページ名: