Question

我第一次使用VBA工作，我得到了一个我似乎无法纠正的错误。

我想将一些字段从一张表传递到另一张表。它给了我“需要的对象”，但我似乎无法弄清楚出售这个......

我的代码是：

Sub principal_main()

    Dim Max_rows, j, row_number As Integer
    Dim i, count As Integer
    Dim name_Row As String
    Dim morada, localidade, email, cod_postal, data As String
    Dim telefone, nif As Integer
    Dim escreve As Range

    count = 0
    row_number = 12
    name_Row = ""
    Max_rows = 23200



    For i = 13 To Max_rows
        If name_Row = "" Then
            name_Row = myWorksheet.Range("B" & i).Value
            morada = ""
            localidade = ""
            email = ""
            cod_postal = ""
            data = ""
            telefone = 0
            nif = 0
            count = 0

        Else
            count = count + 1
            If count = 26 Then
                name_Row = ""
            End If

            Select Case count
                Case 2
                    morada = myWorksheet.Range("B" & i).Value
                    telefone = myWorksheet.Range("I" & i).Value

                Case 4
                    localidade = myWorksheet.Range("B" & i).Value
                    email = myWorksheet.Range("I" & i).Value

                Case 5
                    cod_postal = myWorksheet.Range("B" & i).Value
                    nif = myWorksheet.Range("I" & i).Value

                Case 7
                    data = myWorksheet.Range("C" & i).Value
                    nome_row = Replace(nome_row, " - ", "")
                    For j = 0 To 10
                        nome_row = Replace(nome_row, j, "")
                    Next

                    Set Sheets("final").Range("B" & count_copiados) = name_Row
                    Set Sheets("final").Range("C" & count_copiados) = morada
                    Set Sheets("final").Range("D" & count_copiados) = cod_postal
                    Set Sheets("final").Range("E" & count_copiados) = localidade
                    Set Sheets("final").Range("F" & count_copiados) = telefone
                    Set Sheets("final").Range("G" & count_copiados) = email
                    Set Sheets("final").Range("H" & count_copiados) = nif
                    Set Sheets("final").Range("I" & count_copiados) = data_ficha
                    'Sheets("final").Row(count_copiados).collumn("B") = name_Row
                    'Sheets("final").Row(count_copiados).collumn("C") = morada
                    'Sheets("final").Row(count_copiados).collumn("D") = cod_postal
                    'Sheets("final").Row(count_copiados).collumn("E") = localidade
                    'Sheets("final").Row(count_copiados).collumn("F") = telefone
                    'Sheets("final").Row(count_copiados).collumn("G") = email
                    'Sheets("final").Row(count_copiados).collumn("H") = nif
                    'Sheets("final").Row(count_copiados).collumn("I") = data_ficha
            End Select


        End If
    Next
End Sub

新代码，有一些变化：

Option Explicit

Sub principal_main()

    Dim Max_rows, row_number As Long
    Dim i, j, count, count_copiados As Long
    Dim name_Row As String
    Dim morada, localidade, email, cod_postal, data_ficha As String
    Dim telefone As Variant
    Dim nif As Integer
    Dim escreve As Range
    Dim myWorksheet As Worksheet
    myWorksheet = Sheets(1)
    count = 0
    row_number = 12
    name_Row = ""
    Max_rows = 23200
    count_copiados = 13


    For i = 13 To Max_rows
        If name_Row = "" Then
            name_Row = myWorksheet.Range("B" & i).Value
            morada = ""
            localidade = ""
            email = ""
            cod_postal = ""
            data_ficha = ""
            telefone = 0
            nif = 0
            count = 0

        Else
            count = count + 1
            If count = 26 Then
                name_Row = ""
            End If

            Select Case count
                Case 2
                    morada = myWorksheet.Range("B" & i).Value
                    telefone = myWorksheet.Range("I" & i).Value

                Case 4
                    localidade = myWorksheet.Range("B" & i).Value
                    email = myWorksheet.Range("I" & i).Value

                Case 5
                    cod_postal = myWorksheet.Range("B" & i).Value
                    nif = myWorksheet.Range("I" & i).Value

                Case 7
                    data_ficha = myWorksheet.Range("C" & i).Value
                    name_Row = Replace(name_Row, " - ", "")
                    For j = 0 To 10
                        name_Row = Replace(name_Row, j, "")
                    Next

                    Set Sheets("final").Range("B" & count_copiados) = name_Row
                    Set Sheets("final").Range("C" & count_copiados) = morada
                    Set Sheets("final").Range("D" & count_copiados) = cod_postal
                    Set Sheets("final").Range("E" & count_copiados) = localidade
                    Set Sheets("final").Range("F" & count_copiados) = telefone
                    Set Sheets("final").Range("G" & count_copiados) = email
                    Set Sheets("final").Range("H" & count_copiados) = nif
                    Set Sheets("final").Range("I" & count_copiados) = data_ficha
                    'Sheets("final").Row(count_copiados).collumn("B") = name_Row
                    'Sheets("final").Row(count_copiados).collumn("C") = morada
                    'Sheets("final").Row(count_copiados).collumn("D") = cod_postal
                    'Sheets("final").Row(count_copiados).collumn("E") = localidade
                    'Sheets("final").Row(count_copiados).collumn("F") = telefone
                    'Sheets("final").Row(count_copiados).collumn("G") = email
                    'Sheets("final").Row(count_copiados).collumn("H") = nif
                    'Sheets("final").Row(count_copiados).collumn("I") = data_ficha
                    count_copiados = count_copiados + 1
            End Select


        End If
    Next
End Sub

Answer 1

尝试

Option Explicit

Sub principal_main()

    Dim Max_rows&, row_number&
    Dim i&, j&, count&, count_copiados&
    Dim name_Row$
    Dim morada$, localidade$, email$, cod_postal$, data_ficha$
    Dim telefone As Variant
    Dim nif&
    Dim escreve As Range
    Dim myWorksheet As Worksheet
    Set myWorksheet = Sheets(1)
    count = 0
    row_number = 12
    name_Row = ""
    Max_rows = 23200
    count_copiados = 13


    For i = 13 To Max_rows
        If name_Row = "" Then
            name_Row = myWorksheet.Range("B" & i).Value
            morada = ""
            localidade = ""
            email = ""
            cod_postal = ""
            data_ficha = ""
            telefone = 0
            nif = 0
            count = 0

        Else
            count = count + 1
            If count = 26 Then
                name_Row = ""
            End If

            Select Case count
                Case 2
                    morada = myWorksheet.Range("B" & i).Value
                    telefone = myWorksheet.Range("I" & i).Value

                Case 4
                    localidade = myWorksheet.Range("B" & i).Value
                    email = myWorksheet.Range("I" & i).Value

                Case 5
                    cod_postal = myWorksheet.Range("B" & i).Value
                    nif = myWorksheet.Range("I" & i).Value

                Case 7
                    data_ficha = myWorksheet.Range("C" & i).Value
                    name_Row = Replace(name_Row, " - ", "")
                    For j = 0 To 10
                        name_Row = Replace(name_Row, j, "")
                    Next

                    Sheets("final").Range("B" & count_copiados) = name_Row
                    Sheets("final").Range("C" & count_copiados) = morada
                    Sheets("final").Range("D" & count_copiados) = cod_postal
                    Sheets("final").Range("E" & count_copiados) = localidade
                    Sheets("final").Range("F" & count_copiados) = telefone
                    Sheets("final").Range("G" & count_copiados) = email
                    Sheets("final").Range("H" & count_copiados) = nif
                    Sheets("final").Range("I" & count_copiados) = data_ficha
                    'Sheets("final").Row(count_copiados).collumn("B") = name_Row
                    'Sheets("final").Row(count_copiados).collumn("C") = morada
                    'Sheets("final").Row(count_copiados).collumn("D") = cod_postal
                    'Sheets("final").Row(count_copiados).collumn("E") = localidade
                    'Sheets("final").Row(count_copiados).collumn("F") = telefone
                    'Sheets("final").Row(count_copiados).collumn("G") = email
                    'Sheets("final").Row(count_copiados).collumn("H") = nif
                    'Sheets("final").Row(count_copiados).collumn("I") = data_ficha
                    count_copiados = count_copiados + 1
            End Select
        End If
    Next
End Sub

excel宏“需要对象”错误

1 个答案: