
No.5ベストアンサー
- 回答日時:
#2さんと似たものですが・・・・参考にしてください。
Sub test001()
Dim i As Long
i = 1
Do While Cells(i, 1) <> ""
Cells(i, 2) = Cells(i, 1)
i = i + 1
Loop
End Sub
回答ありがとうございました。
Do While Cells(i, 1) <> ""
↑
ここがわかならかったので、質問させていただきました。
やってみたところ、思い通りの動作をすることができました。
ありがとうございました。
No.7
- 回答日時:
>ここがわかならかったので、質問させていただきました。
Do Loop 文と呼ばれる繰返し処理のための構文です。
Do
処理
Loop
の用に使いますが、このままでは無限に処理が実行されてしまい、無限ループに陥る事になります。
そのため、ループさせるための条件を付加する事で条件が満たされる間だけループ処理を行う事ができます。
Do While Cells(i, 1) <> ""
は、Cells(i, 1)が空白以外なら処理を行う と言う条件です。
http://www2s.biglobe.ne.jp/~iryo/vba/VBA07.html
No.6
- 回答日時:
Sub test01()
d = Range("A65536").End(xlUp).Row
For i = 1 To d
If Cells(i, "A") <> "" Then
Cells(i, "B") = Cells(i, "A")
End If
Next i
End Sub
既回答とやっていることは同じでも、少し違うのですね。
上記は5人答えているので、既に同じものはあるかと思ったが無かったので挙げる。
回答ありがとうございました。
d = Range("A65536").End(xlUp).Row
For i = 1 To d
If Cells(i, "A") <> "" Then
↑
このやり方もあるのですね。
やってみたところ、思い通りの動作をすることができました。
ありがとうございました。
No.4
- 回答日時:
#3です。
(コピペ間違えた)
'100行分
For i = 1 To 100
If ActiveSheet.Cells(i, 1).Value <> "" Then
ActiveSheet.Cells(i, 2).Value = ActiveSheet.Cells(i, 1).Value
End If
Next
No.2
- 回答日時:
> VBAは初心者です。
初心者なのはしょうがないとしても、
「初心者なりに」自分で考えたり、調べたりしてますよね?
それを提示してください。
ちなみに、
-----------------------------------------------------
Sub copyAtoB()
Dim R As Range
Set R = ThisWorkbook.ActiveSheet.Cells(1, 1)
Do While R.Value <> ""
R.Offset(0, 1) = R.Value
Set R = R.Offset(1, 0)
Loop
End Sub
-----------------------------------------------------
こんなコードで(とりあえず)できますが・・・
#解説はしません。内容は「自分で調べて、考えて」見てください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
VBAで「セルに何か入っている場合」
Windows Me・NT・2000
-
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
-
4
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
5
VBAでセルに値が入ったときにイベントを起こしたい
Visual Basic(VBA)
-
6
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
7
VBAで空白セルにのみ数値を代入する方法
Excel(エクセル)
-
8
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
9
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
10
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
11
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
12
【VBA】特定列に文字が入っていたらそのセル行をコピーしてマスターブックの同じ行に貼り付けたい
その他(Microsoft Office)
-
13
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
14
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
15
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
16
【VBA】指定した検索条件に一致したら別シートに転記したい
Visual Basic(VBA)
-
17
データが入力されている隣のセルに当日日付と時刻を入力するExcel VBAプログラム
Visual Basic(VBA)
-
18
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
19
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
20
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel】指定したセルの名前で...
-
i=cells(Rows.Count, 1)とi=cel...
-
エクセルVBAでのセル番地取得プ...
-
置換文字を連番で振りたい
-
VLOOKUP関数で別ファイルを指定...
-
エクセルマクロで結合セルに格...
-
Excelで指定した日付から過去の...
-
”戻り値”が変化したときに、マ...
-
ExcelVBAを使って、値...
-
VBAでボタンを押すと指定したセ...
-
Excel セルの名前を検索できま...
-
VBA初心者です。結合セルを保持...
-
Excel vbaで特定の文字以外が入...
-
CountIf で","(カンマ)の数が...
-
スプレッドシートをGASでセル保...
-
【ExcelVBA】セルをダブルクリ...
-
VBAマクロで結合セルを含む列に...
-
総当たり表のエクセルマクロ
-
エクセルvbaでチェックボックス...
-
screenupdatingが機能しなくて...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ExcelVBAを使って、値...
-
Sub 分けてソートして貼り付け...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
【Excel】指定したセルの名前で...
-
EXCELで変数をペーストしたい
-
screenupdatingが機能しなくて...
-
i=cells(Rows.Count, 1)とi=cel...
-
Excelで指定した日付から過去の...
-
EXCELのVBA-フィルタ抽出後の...
-
Excel VBA、 別ブックの最終行...
-
【VBA】指定したセルと同じ値で...
-
セル色なしの行一括削除
-
Excelのプルダウンで2列分の情...
-
Excel vbaで特定の文字以外が入...
-
特定の文字を条件に行挿入とそ...
-
VBからEXCELのセルの値を取得す...
-
TODAY()で設定したセルの日付...
-
VBAでセルをクリックする回...
-
エクセルVBAでコピーして順...
おすすめ情報