|
▼Kein さん:
おはようございます。ええと・・・列で入力したいのです。
これは、標準モジュールにコードを入力すればいいのですか?
そうすると、「ユーザー定義型は定義されていません」というエラーメッセージがでます。
Sub Split_MyData()
Dim V As Variant
Dim Flg As Boolean
Dim Dobj As DataObject 'Dobj As DataObjectがエラーになります。
Dim St As String
Dim Ary() As String, i As Long, j As Long
For Each V In Application.ClipboardFormats
If V = xlClipBoradFormatText Then
Flg = True: Exit For
End If
Next
If Flg = False Then
MsgBox "テキストがコピーされていません", 48
Exit Sub
End If
Set Dobj = New DataObject
Dobj.GetFromClipboard
St = Dobj.GetText(1): Set Dobj = Nothing
For i = 1 To Len(St) Step 5
ReDim Preserve Ary(j)
Ary(j) = "'" & Mid$(St, i, 5)
j = j + 1
Next i
Range("A1").Resize(UBound(Ary) + 1).Value = _
WorksheetFunction.Transpose(Ary)
Erase Ary
End Sub
重ね重ね申し訳ありませんが、よろしくお願いします。
|
|