Блог

У меня есть список элементов (82 000), и я хочу знать, существуют ли они, и если да, то где (строка и столбец) в массиве размером 200 x 19 000. В настоящее время они оба находятся в файле Excel.

Все элементы представляют собой строки и могут варьироваться от -5 250 0002 до индекса цен объема

Я пытался вывести файл Excel в базу данных MySQL, но прошло 10 лет с тех пор, как я что-либо сделал, я не знаю, как запросить его или даже если я создал таблицу правильно или с правильной схемой.

Вот несколько демонстрационных кодов:

 Sub WhereIsIt()
    Dim s1 As Worksheet, s2 As Worksheet
    Dim BottomRow As Long, i As Long, v As Variant
    Dim Tabl As Range, r As Range

    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")
    Set Tabl = s2.Range("A1:GR19000")
    BottomRow = s1.Cells(Rows.Count, "A").End(xlUp).Row

    For i = 1 To BottomRow
        v = s1.Cells(i, 1).Value
        Set r = Tabl.Find(What:=v, After:=Tabl(1, 1))
        If r Is Nothing Then
            s1.Cells(i, 2).Value = "Not Found"
        Else
            s1.Cells(i, 2).Value = r.Address(0, 0)
        End If
    Next i
End Sub
 

Где Sheet1 есть список и Sheet2 таблица.

РЕДАКТИРОВАТЬ # 1:

Макросы очень просты в установке и использовании:

1. ALT-F11 открывает окно VBE
2. ALT-I ALT-M открывает новый модуль
3. вставьте материал и закройте окно VBE

Если вы сохраните рабочую книгу, макрос будет сохранен вместе с ней. Если вы используете версию Excel более поздней, чем 2003, вы должны сохранить файл как .xlsm, а не .xlsx

Чтобы удалить макрос:

1. откройте окно VBE, как указано выше
2. очистите код
3. закройте окно VBE

Чтобы использовать макрос из окна Excel:

1. ALT-F8
2. Выберите макрос
3. Нажмите ВЫПОЛНИТЬ

Чтобы узнать больше о макросах в целом, см.:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

и

http://msdn.microsoft.com/en-us/library/ee814735 (v=office.14).aspx

Для этого должны быть включены макросы!