nobuさんの書き込みは次のような意味です。列数が4行ならば> .Cols = 3 ↓ .Cols = 4列数が3行ならば> For lngCountI = 1 To 3 ↓ For lngCountI = 0 To 2にするということです。