Excel VBA質問箱 IV

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

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


9980 / 76736 ←次へ | 前へ→

【72311】Re:セルの移動コピー(行指定付き)
発言  UO3  - 12/7/11(水) 11:26 -

引用なし
パスワード
   ▼マリモ さん:

結果をSheet2のA列に書き込んでいます。
Sheet1の1行目の最初の数字はA列から始まっているものとします。
で、ab などのデータはA列2行目から始まっているものとします。
効率を考えればもっと違うコードになりますが、基本的な処理コードとして。

Sub Sample()
  Dim x As Long
  Dim y As Long
  Dim i As Long
  Dim j As Long
  Dim k As Long
  Dim sh2 As Worksheet
  
  Application.ScreenUpdating = True
  
  Set sh2 = Sheets("Sheet2")
  sh2.Columns("A").ClearContents           '実行前に転記領域をクリア
  
  With Sheets("Sheet1")
    x = .Cells(1, .Columns.Count).End(xlToLeft)   '1行目の最終列番号
    y = .Range("A" & .Rows.Count).End(xlUp).Row   'A列の最終行番号
    For i = 2 To y '2行目から最終行まで各行のコードを取得するためにループ
      For j = 1 To y '各行ごとに1行目のA列から最終列までの数値を取得するためにループ
        k = k + 1 '転記シートの行番号をカウントアップ
        sh2.Cells(k, "A").Value = .Cells(i, "A").Value & .Cells(1, j).Value
      Next
    Next
  End With
          
  Application.ScreenUpdating = True
  sh2.Select
  MsgBox "転記終了です"
  
End Sub
0 hits

【72310】セルの移動コピー(行指定付き) マリモ 12/7/11(水) 11:05 質問
【72311】Re:セルの移動コピー(行指定付き) UO3 12/7/11(水) 11:26 発言
【72312】Re:セルの移動コピー(行指定付き) マリモ 12/7/11(水) 12:06 発言
【72313】Re:セルの移動コピー(行指定付き) UO3 12/7/11(水) 12:30 発言
【72314】Re:セルの移動コピー(行指定付き) マリモ 12/7/11(水) 13:15 発言
【72315】Re:セルの移動コピー(行指定付き) UO3 12/7/11(水) 13:29 発言
【72316】Re:セルの移動コピー(行指定付き) マリモ 12/7/11(水) 14:26 発言
【72317】Re:セルの移動コピー(行指定付き) UO3 12/7/11(水) 16:29 発言
【72318】Re:セルの移動コピー(行指定付き) マリモ 12/7/11(水) 17:09 発言
【72319】Re:セルの移動コピー(行指定付き) UO3 12/7/11(水) 20:31 発言
【72320】Re:セルの移動コピー(行指定付き) マリモ 12/7/12(木) 9:42 発言
【72321】Re:セルの移動コピー(行指定付き) UO3 12/7/12(木) 10:01 発言
【72325】Re:セルの移動コピー(行指定付き) UO3 12/7/12(木) 14:53 発言
【72326】Re:セルの移動コピー(行指定付き) マリモ 12/7/12(木) 16:09 発言
【72330】Re:セルの移動コピー(行指定付き) UO3 12/7/12(木) 18:35 発言
【72333】Re:セルの移動コピー(行指定付き) マリモ 12/7/13(金) 9:05 発言
【72335】Re:セルの移動コピー(行指定付き) UO3 12/7/13(金) 11:05 発言
【72336】Re:セルの移動コピー(行指定付き) マリモ 12/7/13(金) 11:20 お礼

9980 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free