|
HN変えているけど、
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=one;no=38243;id=excel
と、同じみたいですね。
Dim tbst() As Variant
strBUFF = "適当データabcdefg12345678901234567890123456789012345678901234567890"
Rt = 7
ReDim tbst(1 To Rt)
tbst(1) = Mid(strBUFF, i + 6, 2)
tbst(2) = Mid(strBUFF, i + 10, 2)
tbst(3) = Mid(strBUFF, i + 13, 10)
tbst(4) = Mid(strBUFF, i + 25, 5)
tbst(5) = Mid(strBUFF, i + 30, 10)
tbst(6) = Mid(strBUFF, i + 42, 5)
tbst(7) = Mid(strBUFF, i + 50, 5)
nCNT = 1
Cells(nCNT, 2).Resize(, Rt).Value = tbst
|
|