手上有一份关于广东22个地市的数据，行列不符合预期的表结构，稍vba转换下，再text import 到oracle.

Sub copy()'' copy 宏'' 快捷键: Ctrl+Shift+I'    Dim cityArray As Variant    cityArray = Array("粤A", "粤B", "粤C", "粤D", "粤E", "粤F", "粤G", "粤H", "粤J", "粤K", "粤L", "粤M", "粤N", "粤P", "粤Q", "粤R", "粤S", "粤T", "粤U", "粤V", "粤W", "粤X", "粤Y")    For i = 1 To 22 Step 1        Range("C3:H36").Offset(0, 6 * i).Select        Selection.Copy        LastRow = Range("C1").End(xlDown).Row + 1        Range("C" & LastRow).Select        ActiveSheet.Paste        Range("A3:A36").Select        Selection.Copy        LastRow2 = Range("A1").End(xlDown).Row + 1        Range("A" & LastRow2).Select        ActiveSheet.Paste        Range("B3:B36").Offset(34*i,0).value = cityArray(i)    Next iEnd Sub