Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29461 / 76732

←次へ　｜　前へ→


	【52552】Re:空白を含むコピー＆ペーストについて

じゅんじゅん - 07/11/19(月) 15:40 -


	引用なし

	パスワード

▼tantan さん：
>▼じゅんじゅんさん：
>>まず、上記コードを提示されては如何でしょう。
>
>すみません。。
>こんな感じです。。
>
>Sub てすと()
>　Dim i As Integer
>
>　For i = 1 to 1500
>　　If Cells(i,4) = "" Then
>　　　 Cells(i,4).select
>　　 Selection.copy _
>　　 Destination:=ThisWorkbook.Worksheets("sheet1").Cells(i,4)
>　　 Else: Cells(i,4).select
>　　 Selection.copy
>　　 Cells(i,1).select
>　　 Selection.PasteSpecialPaste:=xlValues,Operation:=xlNone,SkipBlanks;=_
>　　 False, Transpose:=False
>　　End If
>
>　Next
>
>End Sub
>
>1.やりたいこと
>・Ａ列には日付が行によって入力されていたり、しなかったりランダムにが入力さ　れています。
>・Ｃ列には文字列で20070221と入力されているか#N/Aとなっています。
>・これをＡ列にもし入力されていなかったら日付に変換して貼り付ける。
>と、いうことをやりたいと思っています。
>
>2.現在の状況
>　=IF(ISERROR(A1),"",IF(A1=0,"",DATE(LEFTB(A1,4),MIDB(A1,5,2),RIGHTB(A1,2))))
>という関数を作ってＤ列に日付か空白を入力しています。
>・これをFor～Next文で空白""でなければＡ列に貼り付けるということを実施
>　している。

Ａ列の値によりＤ列に値が入り、その値のみをＡ列に貼り付ける
と言う事ですか？
（上の数式はＤ列に入っているわけですよね？）

ちょっと私は混乱してます。

1 hits

▼

【52523】空白を含むコピー＆ペーストについて tantan 07/11/16(金) 20:53