Вопрос : VBA первенствуют или достигают сброса давления данных

Мои данные имеющиеся в или первенствуют или достигают, поэтому делает проблемой разрешения easier.

My будет я идет извлечь двойной имена компании но не все показатели имеют телефон, факс и
abc [email protected]
abc 123

def 456
def
def
def [email protected]

ghi
ghi 123
ghi


If
abc 456 email

abc 123 факса телефона

company email.

например. я уничтожаю дубликаты, я не хочу освободить данные которые могли быть имеющимися от другого показателя для такого же company.

From вы можете увидеть, что не все показатели имели телефон #, факса & электронная почта, если они имеют их atall.

After vba, я хотел был бы данные выше для того чтобы посмотреть как email

abc 123 факса телефона this

company 456 [email protected]
abc 123 456 [email protected]
abc 123 456 [email protected]
abc 123 456 [email protected]

def 456 [email protected]
def 456 [email protected]
def 456 [email protected]
def 456 [email protected]

ghi 123
ghi 123
ghi 123


So, котор я могу уничтожить дубликаты без тревоги.  
 class=

Ответ : VBA первенствуют или достигают сброса давления данных

побегите подводная лодка в прикрепленном workbook
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:

Sub runme ()

Затемните s как рабочий лист
Установите s = Sheet1

irow = 2

Тусклые телефоны как шнур, faxS как шнур, электронная почта как шнур

Сделайте пока LenB (s.Cells (irow, «a»). Значение) > 0

    irow2 = irow
    телефоны = vbNullString
    faxS = vbNullString
    электронная почта = vbNullString
    
    Сделайте пока LenB (s.Cells (irow, «a»). Значение) > 0
        Если LenB, то (s.Cells (irow, «b»). Значение) > 0 после этого
            телефоны = s.Cells (irow, «b»). Значение
        Закончитесь если
        Если LenB, то (s.Cells (irow, «c»). Значение) > 0 после этого
            faxS = s.Cells (irow, «c»). Значение
        Закончитесь если
        Если LenB, то (s.Cells (irow, «d»). Значение) > 0 после этого
            электронная почта = s.Cells (irow, «d»). Значение
        Закончитесь если
        irow = irow + 1
    Петля
    irow = irow2
    Сделайте пока LenB (s.Cells (irow, «a»). Значение) > 0
        s.Cells (irow, «b»). Значение = телефоны
        s.Cells (irow, «c»). Значение = faxS
        s.Cells (irow, «d»). Значение = электронная почта
        irow = irow + 1
    Петля
    
    Сделайте пока LenB (Trim$ (s.Cells (irow, «a»). Значение)) = 0 и irow  < s="">
 
example.xls (26 KB) (тип архива детали) 
пример
 
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us