|
こんにちは。
問題点の正確な把握は、問題解決の糸口です。
初心者であればあるほど、たいせつなところです。
重箱の隅をつつくようで恐縮ですが
本トピのタイトルが「切り抜きから貼り付け」。
「切り抜きから貼り付け」が「応答なし」に深く関わっている
とお考えになりますか?
「応答なし」になったとき、たまたまそこが処理中であった
(ように見えただけ?) という可能性はないでしょうか。
たとえば、コードから「切り抜きから貼り付け」の部分を削除したら
「応答なし」が発生しなくなるかどうか。
たとえば、ループと関係なく単発で「切り抜きから貼り付け」を実行
しても「応答なし」になるかどうか。
こういうことを確認したうえでのタイトルでしょうか。
きびしい言いかたに聞こえたらごめんなさいね。
でも、何が本当の問題なのかを ご自身が しっかり掴むことは
ご自身がコードを書くうえでとてもとても大切なんです。
▼[名前なし] さん:
>i = 2
> Do While Cells(i, 1) <> ""
> If Cells(i, 21) <> "" Then
> Rows(i).Select
> Selection.Copy
> Selection.Insert Shift:=xlDown
> Range(Cells(i, 20), Cells(i, 44)).Select
> Application.CutCopyMode = False
> Selection.ClearContents
> Range(Cells(i + 1, 20), Cells(i + 1, 44)).Cut Destination:=Range(Cells(i + 1, 15), Cells(i + 1, 39))
> End If
> i = i + 1
> Loop
>
>上の記述だと、END if前の切り抜き→貼り付け(実際には元データのセルを左にずらしている処理)
>で応答なしになってしまいます。
>完全に初心者ですが、ご指摘お願いします。
|
|