iPSマクロ研で、Excel2010で「選択したセル内の集計という文字を取り去る」マクロを作った。
- Sub 選択したセル内の集計という文字を取り去る()
- Dim rCell As Range
- Dim sString As String
- For Each rCell In Selection
- sString = rCell.Value
- sString = Replace(sString, "集計", "")
- rCell = Trim(sString)
- Next
- End Sub
このコードをはてなダイアリーに貼り付けるのも工夫が必要‥‥ ということで、
- Wordに貼り付ける。
- Wordの［置換］で、半角スペース２っを全角スペース１っにする。
- 再度［置換］で、空行（上記の 4. とか 10.行）に全角２っを入れる。
方法を紹介。これをはてなダイアリーに貼り付け、［数字リスト］にしたのが上記。
今日は時間が無かったので、次回「マクロ化」してみたい...
