お世話になります。どうかお力をお貸ししていただけると幸いです。
添付の図のようにセルAに英単語が入っており、続けて英単語のセルの下に和訳が入っているエクセルシートがございます
このシートにおける和訳部分を、英単語が存在するセルの右のセルに自動で移動させるマクロを作成したいのですが実力不足で思いつきません。
単語と和訳のまとまりの間には1~3行ほどの空欄がございます(空欄の数に規則性はございません)。よってこの空欄を目印にして、
A列を上から下へと見ていき、最初に空欄以外のセルを発見し場合は、そのままにする。そして空欄以外のセルにあたった次に下のセルを参照し空欄にあたるまではA列に存在する文字を移動させるというようなプログラムを組めばできそうということはわかるのですが・・・
どうか、どのようにプログラムを書けばよろしいか教えていただけませんでしょうか。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
No.1です。
>英単語のしたに英語で当該単語の解説がある場合は・・・
となると結局「空白セル」で判断するしかないようですね。
Sub Sample2()
Dim i As Long, k As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
If Cells(i, "A") <> "" Then
k = i + 1
Do While Cells(k, "A") <> ""
Cells(k, "A").Cut Cells(i, Columns.Count).End(xlToLeft).Offset(, 1)
k = k + 1
Loop
i = k
End If
Next i
End Sub
今度はどうでしょうか?m(_ _)m
tomo04さん
お世話になっております。
完璧に動作いたしました。
この度はご丁寧に教えていただきありがとうございました。
本当に助かりました!
No.1
- 回答日時:
こんばんは!
>よってこの空欄を目印にして・・・
空白を「目印」ではなく、バイト数で判断してみました。
「英単語」→すべて半角文字のはずなので文字数とバイト数が同じ数になる
「和訳」→全角1文字は2バイトとなるので文字数とバイト数は異なる
を利用した方法の一例です。
Sub Sample1()
Dim i As Long, k As Long
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
'▼文字数とバイト数が同じ場合は、単語を判断
If Len(Cells(i, "A")) = LenB(StrConv(Cells(i, "A"), vbFromUnicode)) Then
k = i + 1
'▼文字数とバイト数が異なるセルをi行の右隣りのセルはカット&コピー
Do While Len(Cells(k, "A")) <> LenB(StrConv(Cells(k, "A"), vbFromUnicode))
Cells(k, "A").Cut Cells(i, Columns.Count).End(xlToLeft).Offset(, 1)
k = k + 1
Loop
i = k
End If
Next i
ActiveSheet.Columns.AutoFit
End Sub
こんな感じではどうでしょうか?m(_ _)m
お世話になっております。
早速のご回答を下さりありがとうございます!
非常に助かりました。
さらに教えていただけるととてもありがたいのですが、今回のケースのような場合で、英英辞典のように、英単語のしたに英語で当該単語の解説がある場合はどのようにすればよいかもご教授願えませんでしょうか。
質問に挙げた例は英和辞典のようなケースのデータであったのですが、実は英英辞典のようなケースのデータも処理がしたく、もしも処理をすることができればさらにありがたい限りです。
もしもご存知でしたらどうかよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) エクセルVBAで『A列』に新規で数値を入力し『B列』から右方向の空白セルにその値を貼り付ける方法 4 2022/11/05 08:37
- Excel(エクセル) エクセルの散布図で新たに入力した値のデータラベルが空欄になる現象 1 2022/04/26 09:31
- Excel(エクセル) 判定結果に応じて〇印(図形)をつけるマクロ 4 2022/10/30 11:22
- Excel(エクセル) エクセル 3つの値の中からデータを抽出させる方法 4 2023/08/24 11:00
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) エクセルで#以降の文字を取得したい 1 2022/03/28 13:14
- Excel(エクセル) 指定した語句と隣のセルを空欄にする 1 2023/06/18 12:54
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Excel(エクセル) Excelのリストにある文字を含むセルを、複数の色で色付けしたいです 2 2022/08/11 17:39
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ExcelVBAを使って、値...
-
i=cells(Rows.Count, 1)とi=cel...
-
特定のセルが空白だったら、そ...
-
エクセルVBAでコピーして順...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
エクセルVBAで結合セルの真ん中...
-
VBAでセルをクリックする回...
-
【Excel VBA】指定行以降をクリ...
-
【VBA】指定したセルと同じ値で...
-
同じマクロのプログラムなのに...
-
screenupdatingが機能しなくて...
-
マクロ 空白セルへの文字入力
-
DataGridViewのセル編集完了後...
-
Excel vbaで特定の文字以外が入...
-
指定した条件で行セルを非表示...
-
特定行の色を変えたい(FlexGrid)
-
実行時エラー438 オブジェクト...
-
エクセルマクロでアニメを作る...
-
DataGridViewの各セル幅を自由...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
特定のセルが空白だったら、そ...
-
i=cells(Rows.Count, 1)とi=cel...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
【Excel】指定したセルの名前で...
-
TODAY()で設定したセルの日付...
-
EXCELで変数をペーストしたい
-
Excel VBA、 別ブックの最終行...
-
Excelのプルダウンで2列分の情...
-
VBA コピーして次の値まで貼り...
-
screenupdatingが機能しなくて...
-
エクセルVBAでコピーして順...
-
VBA初心者です。結合セルを保持...
-
セル色なしの行一括削除
-
VBAでセルをクリックする回...
-
Excel vbaで特定の文字以外が入...
-
DataGridViewの各セル幅を自由...
-
特定の文字を条件に行挿入とそ...
-
【VBA】指定したセルと同じ値で...
おすすめ情報