Excel VBA質問箱 IV

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

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


26469 / 76732 ←次へ | 前へ→

【55594】Re:行列変換について
回答  テト  - 08/5/13(火) 11:20 -

引用なし
パスワード
   別案。

――――――――――――――――――――――――――――――
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim i As Long
Dim j As Long
Dim k As Long
Dim inSpc As Long

'任意の空白数
inSpc = 1

Set ws1 = ActiveWorkbook.Worksheets("シート1")
Set ws2 = ActiveWorkbook.Worksheets("シート2")

For i = 1 To 3
  k = 1
  For j = 1 To ws1.Cells(ws1.Rows.Count, i).End(xlUp).Row
    '最大列数超過
    If k > ws2.Columns.Count Then
      Exit Sub
    '上記以外
    Else
      ws2.Cells(i, k).Value = ws1.Cells(j, i).Value
      k = k + 1 + inSpc
    End If
  Next j
Next i
――――――――――――――――――――――――――――――

0 hits

【55592】行列変換について KEI 08/5/12(月) 19:02 質問
【55593】Re:行列変換について りん 08/5/13(火) 4:43 回答
【55594】Re:行列変換について テト 08/5/13(火) 11:20 回答

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