следующая проблема .
есть лист Excel. в одном столбце несколько тысыч записей формата ФИО, Адрес.
нужно в этом столбце удалить Адрес, оставив фамилию. грубо говоря искать в ячейке запятую и удалить всё содержимое после неё. писать прогу на дельфях нет времени может кто подскажет как быстрее с помощью VBA

Код

A2=Iif( Instr(A1,",")>0; Left(A1,Instr(A1,",")-1); A1)

Вот примерно так

Код

Public Sub RemoveAddress(SH As Worksheet, Column As Integer)    Dim r As Integer    Dim StrValue As String    Dim ComaPos As Integer        For r = 1 To SH.UsedRange.Rows.Count        StrValue = CStr(SH.UsedRange.Cells(r, Column).Value)        ComaPos = InStr(1, StrValue, ",")        If ComaPos > 0 Then            SH.UsedRange.Cells(r, Column).Value = Mid$(StrValue, 1, ComaPos - 1)        End If    Next r End Sub

ЗЫ: Ну и шустрый же ты, Akina.

Это сообщение отредактировал(а) Naghual - 27.1.2005, 15:39

Код

Private Sub CommandButton1_Click() Dim d As Integer Dim str As String Dim str1 As String Dim strLen Dim i As Integer d = UsedRange.Rows.Count For rwIndex = 1 To d str = Range("A" & rwIndex) strLen = Len(str)    For i = 1 To strLen    str1 = Mid(str, i, 1)      If Asc(str1) <> 44 Then       Range("B" & rwIndex).Value = Left(str, i)      Else    Exit For End If Next i Next rwIndex End Sub

Это сообщение отредактировал(а) Старуха - 27.1.2005, 22:39

сделал макрос в екселе, вставил туда код но рукается на строчку Sh = Worksheets(1)
"Object variable or With block variable not set"
код следующий:

Sub Макрос1[s]()
Dim Sh As Worksheet
Dim r As Integer
Dim StrValue As String
Dim ComaPos, Column As Integer

Column = 4 ' номер столбца

Sh = Worksheets(1)

For r = 1 To Sh.UsedRange.Rows.Count
StrValue = CStr(Sh.UsedRange.Cells(r, Column).Value)
ComaPos = InStr(1, StrValue, ",")
If ComaPos > 0 Then
Sh.UsedRange.Cells(r, Column).Value = Mid$(StrValue, 1, ComaPos - 1)
End If
Next r
End Sub


в VB не силен, но по моему всё правильно. видать что то упустил

Код

Set Sh = Worksheets(1)

Не надо делать макрос,если действительно на VBA.Рисуй на листе кнопку и вставляй туда мой код.Все работает.