将特定单元格导出到MS Access

Question

我有一份人员名单，但是在pdf上我把它转换为excel，结果就是这样。

我想知道这样的事情是否可能

凭借我的想象力，我希望有一些东西可以做到这一点。从第一个单元格开始 - ＆gt;下一个单元格 - ＆gt;下一个单元格 - ＆gt;将数据添加到NAME_ - ＆gt;下一个细胞...... - ＆gt;下一行 - ＆gt;将数据添加到STREET NAME .....

我很抱歉，如果这些没有任何意义:)我没有这方面的经验我知道sql代码我不认为我将能够得到这些与这些代码有{{1该excel文件中的行13056要导出的人

最后，我希望能够看到来自13056/3=4352的人员使用sql代码

"ŞANLIURFA"

修改

SELECT * FROM PEOPLE WHERE STATE/PROVINCE = "ŞANLIURFA"

VBA返回编译错误“需要对象”，我检查了其他问题，但无法理解。

This one我以为他错过了“Sub”和“End Sub”，但是因为我拥有它所以不是这样的

Answer 1

您使用一些VBA来执行此操作。这不是100％写的，它正在做一些假设（比如我们从Sheet1读取数据并写入Sheet2，并且数据上升到第5000行）。

Sub fixData()
    Dim writeRow As Integer

    writeRow = 1
    'Iterate through Sheet1 starting at row 9 and ending at 5000
    'Skipping every 3 rows
    For i = 9 To 5000 Step 3

        'Pick up the streetname from Sheet1 and stick it in Sheet2
        Sheet2.Cells(writeRow, 1).Value = Sheet1.Cells(i + 1, 1).Value 'Streetname
        Sheet2.Cells(writeRow, 2).Value = Sheet1.Cells(i + 1, 2).Value 'Building No
        Sheet2.Cells(writeRow, 3).Value = Sheet1.Cells(i, 3).Value 'Name
        Sheet2.Cells(writeRow, 4).Value = Sheet1.Cells(i + 2, 3).Value 'Surname
        '... like 10 more of these

        'Now we've written out one row to sheet2, increment to the next one
        writeRow = writeRow + 1
    Next
End Sub