[PR]
×
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。
Dim aaa
Dim bbb
aaa = Cells(1, 1).Value
bbb = Replace(a, "芝", "")
Cells(3, 1).Value = bbb
Cells(3, 1).Value = Replace(Cells(1, 1).Value, "芝", "")