[[20181216074654]]　『シート名を、セルへ転記』（マリン）　ページの最後に飛ぶ

『シート名を、セルへ転記』（マリン）

各シート名を、セルに転記したいです。

A1-1_12345678

前半を、B1とB2を結合したせるへ
後半を、C1からC2を結合したせるへ

したいのですが自動で出来ますか??

＜使用 Excel：Excel2016、使用 OS：Windows8 ＞

 シート名
 =MID(CELL("filename",A1),FIND("]",CELL("filename",A1),1)+1,20)

 シート名がＡ３だとして、
 左
 =LEFT(A3,FIND("_",A3,1)-1)
 右
 =MID(A3,FIND("_",A3,1)+1,20)
（BJ） 2018/12/16(日) 08:50

 マクロ使用なら以下でいかがですか？
  Sub test()
     Dim ws As Worksheet
     For Each ws In Worksheets
         ws.Range("B1").Value = Split(ws.Name, "_")(0)
         ws.Range("C1").Value = Split(ws.Name, "_")(1)
     Next
  End Sub
　エラー対応はしていません。（前提が変わるかも知れないので。)

（γ） 2018/12/16(日) 09:06

あなたはだいちゃんでしょう？
既に頂いている回答をよく理解することが先決ですよ。
もこな2さん他の皆さんから丁寧な回答があった筈。

（γ） 2018/12/16(日) 15:31

コメント返信：

[ 一覧(最新更新順) ]

[[20181216074654]] 『シート名を、セルへ転記』（マリン） ページの最後に飛ぶ

[[20181216074654]]　『シート名を、セルへ転記』（マリン）　ページの最後に飛ぶ