Ожидается: =.
 

Код:Function FindString(sString$, oSheet) As Variant Dim nCurCol As Integer Dim nCurRow As Integer Dim oCell As Object Dim oCursor As Object Dim oData Dim oRow oCell = oSheet.GetCellbyPosition( 0, 0 ) oCursor = oSheet.createCursorByRange(oCell) oCursor.GotoEndOfUsedArea(True) oData = oCursor.getDataArray() For nCurRow = LBound(oData) To UBound(oData) oRow = oData(nCurRow) For nCurCol = LBound(oRow) To UBound(oRow) If (oRow(nCurCol) = sString$) Then FindString = oSheet.GetCellbyPosition( nCurCol, nCurRow ) Exit Function End If Next NextEnd Function'=============================== ======================================== ===sub MainPhone dim i as integer i = 1 do while sheets("PhonesOld").range("A" & i).Value "" FindString(sheets("Phones").Range("A" & i).value, StarDesktop.CurrentComponent.sheets.getB yName("Лист2") ) ' ^^^' ругается здесь i = i + 1 loopend subРугается так: Синтаксическая ошибка BASIC. Ожидается: =.Где я допустил ошибку?