| |
▼はなかっぱ さん：
>確かに、拠点が縦方向にまとまったのですが、国名が拠点数ぴったりでなく、拠点入力用に用意した項目数（拠点30まで）分入力されてしまいました。
それは 空白(Empty)に見えるセルでも、スペースがあるからじゃないですか？
以下のように、セルの前後のスペースをとる処理を入れたら
どうなりますか？
Sub Try2()
Dim v, u
Dim i As Long, j As Long, k As Long
With Worksheets(1).Range("A1").CurrentRegion
.Value = Application.Trim(.Cells)
v = Intersect(.Cells, .Offset(1)).Value
End With
ReDim u(1 To 2, 1 To UBound(v) * UBound(v, 2))
k = 1: u(1, k) = "国": u(2, k) = "拠点"
For i = 1 To UBound(v)
For j = 2 To UBound(v, 2)
If IsEmpty(v(i, j)) Then Exit For
k = k + 1
u(1, k) = v(i, 1)
u(2, k) = v(i, j)
Next
Next
With Worksheets(2)
.Columns("A:B").ClearContents
.Range("A1").Resize(k, 2).Value = _
Application.Transpose(u)
End With
End Sub
|
|
kanabun
- 11/3/4(金) 21:06 -
