Вы уточните какой аналитик. Просто к примеру системный аналитик и аналитик данных - разные должности с разным функционалом и перед ними стоят разные задачи. В каком направлении хотите развиваттся ?
John Smith: к сожалению не получится, все данные есть в книге только. Вообще в листе было больше данных, я их с помощью макроса оттуда выдернул:
Sub revd()
Set wbd = ThisWorkbook.Worksheet("до")
Set wbdo = ThisWorkbook.Worksheet("до.обработанно")
Dim oRegD As New RegExp
Dim patternd As String
Dim dictd As New Dictionary
Dim nrowd As Integer
Dim celD As String
Dim nextc As Integer
patternd = "[А-ЯЁёа-я0-9A-Ba-b-\s]"
With oRegD
.Global = True
.Pattern = patternd
.IgnoreCase = True
.MultiLine = True
End With
nextc = 2
nrowd = 1
For i = 7 To 5000
set oMatches = oRegD.Execute(wbd.Cellls(i, 11))
For ii = 0 To oMatches.Count - 1
Set oMatch = o Matches.Item(ii)
celD = oMatch.Value
If Not dictd.Exist(celD) Then
dictd.Add celD, nrowd
wbdo.Cells(nrowd, 1) = celD
nrowd = nrowd + 1
End If
If IsEmpty(wbdo.Cells(dictd.item(celD), nextc) Then
wbdo.Cells(dictd.item(celD), nextc) = wbd.Cells(i,3)
Else
Do While Not IsEmpty(wbdo.Cells(dictd.item(celD), nextc) = True
nextc=nextc+1
Loop
wbdo.Cells(dictd.item(celD), nextc) = wbd.Cells(i,3)
nextc = 2
End If
Next ii
Next i
Set oRegD = Nothing
End Sub
Спасибо большое, а как составить патерн, что бы он и цифры и символы искал в количестве 6 штук и игнорировал точку с запятой и символ пробелы ?
"/w+/W+"?
Спасибо. Да я как раз и учу js. То что ручками все делать это понятно ))). Хоть где то векторная алгебра пригодится, не зря два года ее в универе учил)).
Спасибо. Вроде подключается "QSqlDatabasePrivate::addDatabase: duplicate connection name 'qt_sql_default_connection', old connection removed."
Не знаете, в SQLite есть возможность строить диаграммы из созданных таблиц, как в MSSQL например?