
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
-
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
-
4
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
5
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
6
別のシートから値を取得するとき
Visual Basic(VBA)
-
7
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
8
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
9
データが入力されている隣のセルに当日日付と時刻を入力するExcel VBAプログラム
Visual Basic(VBA)
-
10
EXCEL VBA で指定した範囲に入力があるかどうか?
Visual Basic(VBA)
-
11
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
12
【VB】セルが空になるまで処理を繰り返したい
Visual Basic(VBA)
-
13
[初心者です]VBAで指定列からAを検索し、発見したら隣のセルに値0を入れるマクロ。
Access(アクセス)
-
14
VBAでセルに値が入ったときにイベントを起こしたい
Visual Basic(VBA)
-
15
VBAで繰り返しコピーしながら下へ移動させる方法
Excel(エクセル)
-
16
ある列のセルに特定の文字が入っていたら他のセルに決まった文字を入れる
Word(ワード)
-
17
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
18
VBAで空白セルにのみ数値を代入する方法
Excel(エクセル)
-
19
VBA 見つからなかった時の処理
Excel(エクセル)
-
20
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
screenupdatingが機能しなくて...
-
5
B列に特定の文字列が入っている...
-
6
Excel VBA、 別ブックの最終行...
-
7
EXCELのVBA-フィルタ抽出後の...
-
8
セル色なしの行一括削除
-
9
Excelのハイパーリンクにマクロ...
-
10
【EXCEL VBA】Range("A:A").Fi...
-
11
連続する複数のセル値がすべて0...
-
12
EXCELで変数をペーストしたい
-
13
VLOOKUP関数で別ファイルを指定...
-
14
Excelのプルダウンで2列分の情...
-
15
ユーザーフォーム内のテキスト...
-
16
実行時エラー438 オブジェクト...
-
17
【VBA】指定したセルと同じ値で...
-
18
VBAでセルに値が入ったときにイ...
-
19
共有フォルダからのファイル名...
-
20
DataGridViewの各セル幅を自由...
おすすめ情報
公式facebook
公式twitter