|
▼はなかっぱ さん:
>確かに、拠点が縦方向にまとまったのですが、国名が拠点数ぴったりでなく、拠点入力用に用意した項目数(拠点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
|
|