![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
10字~50字程の全角文字がランダムに入っている列があり、それを20字以上の場合は20字で改行された状態にしてメモ帳に貼り付ける必要があるのですが、何か良い方法はありませんでしょうか。
具体的には、
------------------------------------------------------------------------
あいうえおかきくけこさしすせとたちつてとなにぬねのはひふへほまみむめもやゆよん
↓
あいうえおかきくけこさしすせとたちつてと
なにぬねのはひふへほまみむめもやゆよ
ん
------------------------------------------------------------------------
という状態でメモ帳に反映させたいです。
エクセルでの改行は、メモ帳にダブルクォーテーション付きで反映されてしまうため、困っています。
関数でもマクロ処理でも構いません。
最終的にメモ帳に改行したものが反映されていればOKです。
できれば、指定した範囲のセル全てそれぞれが一度で改行、メモ帳に反映されると助かります。
どなたか、力を貸してください。。
No.5ベストアンサー
- 回答日時:
No.4です。
補足の件について・・・
結局B列の文字数で前回同様の操作を行えばよい!というコトですね?
↓のコードに変更してマクロを実行してみてください。
今回もデータは1行目からあるとします。
Sub Sample2()
Dim i As Long, k As Long, cnt As Long
For i = Cells(Rows.Count, "B").End(xlUp).Row To 1 Step -1 '←最終列取得のためなので「A」のままでもOK
If Len(Cells(i, "B")) > 20 Then
cnt = Int(Len(Cells(i, "B")) / 21)
Rows(i + 1 & ":" & i + cnt).Insert
For k = 1 To cnt
With Cells(i + k, "B")
.Value = Mid(.Offset(-1), 21, Len(.Offset(-1)))
.Offset(-1) = Replace(.Offset(-1), .Value, "")
End With
Next k
End If
Next i
Columns.AutoFit
End Sub
※ 前回のコードとほとんど同じです。「A」列の部分を「B」列に変えただけです。
こんな感じでよろしいのでしょうかね?m(_ _)m
No.4
- 回答日時:
こんにちは!
一例です。
データはA列の1行目からあるとします。
画面左下の操作したいSheet見出し上で右クリック → コードの表示 → VBE画面に
↓のコードをコピー&ペーストしてマクロを実行してみてください。
Sub Sample1() 'この行から
Dim i As Long, k As Long, cnt As Long
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Len(Cells(i, "A")) > 20 Then
cnt = Int(Len(Cells(i, "A")) / 21)
Rows(i + 1 & ":" & i + cnt).Insert
For k = 1 To cnt
With Cells(i + k, "A")
.Value = Mid(.Offset(-1), 21, Len(.Offset(-1)))
.Offset(-1) = Replace(.Offset(-1), .Value, "")
End With
Next k
End If
Next i
End Sub 'この行まで
これでA列に20文字以内に分割されますので、
これをメモ帳にコピー&ペーストしてみてください。m(_ _)m
この回答への補足
早速ありがとうございます!すごい!なるほど、分割して下のセルに繰り下げていく、ということなんですね。
ずっと同一セル内で改行>貼り付けとしか考えてませんでした。
なので、最初の質問に書かなかったのですが、実は、改行させたい文字列の隣に、その文字列の名称が入る列があるんです。。今更すみません。
下のようになります。
A列 B列
りんご りんごの説明(40字以上の場合)
なし なしゃの説明(40字以下の場合)
みかん みかんの説明(20字以下の場合)
これを
りんご りんごの説明・・・・・・・
りんごの説明の続き・・・
さらにりんごの説明・・・
なし なしの説明云々・・・
なしがどうのこうの
みかん みかんとは・・・・
このように、もともと対になっていたA列とB列が、B列が改行されたあとも、対応するようにできないでしょうか。
上の例で言うと、B列の改行が3行にわたるのか、2行になるのか、1行になるのかによってA列の繰り下げ方が変わってしまうので、どのようにしたらいいのか、想像もできません。
アドバイスいただけないでしょうか。
どうぞよろしくお願いします!!
No.3
- 回答日時:
既に有用な回答が提示されていますが、エクセルで改行された状態になっているものをメモ帳に貼り付けたい場合の方法としては、
(1)一旦ワードパッドに貼り付ける。
(ワードパッドでなくても、改行コードを認識するエディタならなんでも)
(2)ワードパッド(orエディタ)の文字列をコピーしてメモ帳に貼り付ける。
という手順でも可能です。ご参考まで。
No.2
- 回答日時:
対象文字列がA列に入っているとして、B列に20文字ごとに切り分けた文字列を入れています。
B列をコピーしてメモ帳に貼り付けてください
Sub Sample()
nRow = 1
nLength = 20
nMaxRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To nMaxRow
sTarget = Range("A" & i)
For j = 1 To Len(sTarget) Step nLength
Range("B" & nRow) = "'" & Mid(sTarget, j, nLength)
nRow = nRow + 1
Next j
Next i
End Sub
![「エクセルで改行したものをメモ帳に貼り付け」の回答画像2](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/1/1241782_5497eecb7f7c5/M.jpg)
この回答への補足
わかりやすくありがとうございます!
分割して下のセルに貼り付けていくのですね・・・
実は、上の回答4の方にも書いたのですが、
完全に説明不足でした。
A列 B列
りんご りんごの説明(40字以上の場合)
なし なしゃの説明(40字以下の場合)
みかん みかんの説明(20字以下の場合)
これを
りんご りんごの説明・・・・・・・
りんごの説明の続き・・・
さらにりんごの説明・・・
なし なしの説明云々・・・
なしがどうのこうの
みかん みかんとは・・・・
このように、もともと対になっていたA列とB列が、B列が改行されたあとも、対応するようにできないでしょうか。
今更、ほんとすみません・・・
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
- Excel(エクセル) 文字化け。メモ帳でUTF-8に変換後、エクセルへ貼り付けたいです。 3 2022/08/14 07:21
- Windows 10 WIN11 UPdate 3 2022/09/22 08:36
- Android(アンドロイド) Simカードをなくしてしまいました。元になるスマホが、すでに契約が終わっていて、wifiのある場所の 2 2022/08/01 15:10
- 画像編集・動画編集・音楽編集 写真への文字の貼り付け 4 2023/04/06 18:39
- その他(ソフトウェア) ジャストシステムのATOKについて 1 2023/03/18 14:24
- iPhone(アイフォーン) iPhoneのメモ帳を使ってますが、突然全然違うところに画面がジャンプします。なんですか ?この仕様 1 2022/12/19 09:19
- 会社・職場 ちょっとしたことでもメモ取らないと忘れてしまう 6 2023/06/02 18:35
- その他(悩み相談・人生相談) 自分の行動を変えるための具体策が思いつきません。 自分は「自分本位であること」「物事のやり忘れがおお 3 2023/07/06 08:57
- 教えて!goo このサイトがたまにフリーズします、、、。せっかく書いた内容が全部だめになります。改善策は? 4 2022/09/26 21:52
このQ&Aを見た人はこんなQ&Aも見ています
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「.movpkg」「.m3u8」ファイル...
-
ファイル名の長短について
-
YahooのIDがロックされてしまい...
-
STEAM版BF4が起動しない
-
ゆうちょ認証アプリが使えません
-
jpeg画像の圧縮
-
新バージョンPDFでのスナップシ...
-
discordのビデオ通話でカメラ映...
-
Googleドライブの使い方が分か...
-
Windows 11 に対応する作業
-
UnityのPublishing SettingsでC...
-
LDPlayerのマクロの編集方法を...
-
Bilibiliの動画をPCでダウンロ...
-
ITの見積もりってなんであんな...
-
microsoft teamsの左のアイコン...
-
SSDにデフラグは必要?
-
フォルダパスと実際のフォルダ...
-
一太郎の文章編集 改行の削除
-
Windows10のバックアップ イメ...
-
googleスプレッドシートのキャ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「.movpkg」「.m3u8」ファイル...
-
YahooのIDがロックされてしまい...
-
ファイルマネージャーを使って...
-
VideoProc Converterで画面録画...
-
録画ソフト
-
画像ファイルの並び替え
-
GIMP2で1つのレイヤーでテキス...
-
EXCELファイルの拡張子変更につ...
-
jpeg画像の圧縮
-
STEAM版BF4が起動しない
-
ホームページビルダーのバージ...
-
jtrim 1.53cが正常な動きをし...
-
Winrarの移行
-
Googleカレンダーで予定を入れ...
-
LDPlayerのマクロの編集方法を...
-
ゆうちょ認証アプリが使えません
-
スプレッドシートの作業範囲
-
Windows 11 に対応する作業
-
Numbersについてお伺いです。 ...
-
今から3DCGを学ぶとすれば、ど...
おすすめ情報