井上 聡 さん:

よく見ていらっしゃいますね (^^;

実は、貼りつけ先の行に来たとき、 [shift] + [ ↓ ] を押して行全体を（末尾の改行込みで）選択し、それから貼り付けると僕がやっているようになります。
あまり一度にいろいろお伝えするとついてこられなくなってしまう方がいるので解説はしていませんが。
ご興味あれば参考にしてください。でも、マネしようとしてうまくいかなかったとしても、凹まないでくださいね。（大丈夫だとは思いますが）

>ショートカットキーの操作について
>（C)を（A),(B)にコピーして貼り付ける際、動画の場合は、if とelseとend ifの間にスペースを作成してちょうどうまく貼り付けています。
>しかし、私が貼り付けるとelse とend iの下に一行ができます。貼り付ける際に何かショートカットキーを押すのでしょうか。
>
>Sub zyuusyo()
> Dim mae
> Dim kouzou
> kouzou = Range("D2").Value（C)
> mae = InStr(kouzou, "/")
> If kouzou = "RC" Then
> （A)
> Else
> 　（B)
> End If
>
>End Sub
>

2015/01/16 18:12