長沙宇菱電梯糾紛案

㈠ 長沙宇菱電梯有限公司岳陽分公司怎麼樣

簡介：長沙宇菱電梯有限公司岳陽分公司成立於2014年03月18日，主要經營范圍為從事隸屬公司經營范圍內的業務聯系等。
法定代表人：巢利
成立時間：2014-03-18
工商注冊號：430602000040214
企業類型：有限責任公司分公司(自然人投資或控股)
公司地址：湖南省岳陽市岳陽樓區巴陵中路巴陵尚都小區1棟1012室

㈡ 長沙宇菱電梯有限公司怎麼樣

簡介：長沙宇菱電梯有限公司成立於2008年11月24日，主要經營范圍為電梯、製冷設備的銷售等。
法定代表人：韓衛群
成立時間：2008-11-24
注冊資本：510萬人民幣
工商注冊號：430102000077090
企業類型：有限責任公司(自然人投資或控股)
公司地址：長沙市芙蓉區車站北路70號萬象新天公寓5棟2413房

㈢ 怎麼在excel表格里找出所有未知的相同的欄位

為了查找正確，首先，你必須要把篩選的數據放在A列，從第一行開始放。然後，alt+F11調出vba窗口，插入模塊，拷貝下面的代碼後保存。
運行宏SearchSame，在B列出現的數據是重復項關鍵字，C列往後就是和該關鍵字有重復的原始數據。因為excel有列限制，所以結果最多顯示到IV列。不過想必夠用了吧。
用你給的數據，代碼運行正常，你可以試一下。

Sub SearchSame()
Dim pos As Integer
Dim bit As Integer
Dim cellstr As String
Dim keystr As String
Dim len_str As Integer
Dim foundnum As Long

On Error GoTo err
foundnum = 0
ActiveSheet.Range("B:IV").Clear
For Each cell In ActiveSheet.Range("A:A").Cells
cellstr = Trim(cell.Value)
len_str = Len(cellstr)
If cellstr = vbNullString Then
Exit For
End If
For pos = 1 To len_str
For bit = 1 To len_str - pos + 1
keystr = Mid(cell.Value, pos, bit)
If Not HasFound(keystr) Then
If IsSame(keystr, cell.Row) Then
foundnum = foundnum + 1
Cells(foundnum, 2).Value = keystr
Call GetSameData(keystr, foundnum)
End If
End If
Next
Next
Next
err:
End Sub

Private Function IsSame(str As String, idx As Long) As Boolean
Dim found As Boolean
Dim cell
On Error GoTo err
found = False
For Each cell In ActiveSheet.Range("A:A").Cells
If Trim(cell.Value) = vbNullString Then
Exit For
End If
If cell.Row <> idx Then
If cell.Value Like "*" & str & "*" Then
found = True
Exit For
End If
End If
Next
IsSame = found
err:
End Function

Private Function HasFound(str As String) As Boolean
Dim found As Boolean
On Error GoTo err

found = False
For Each cell In ActiveSheet.Range("B:B").Cells
If cell.Value = vbNullString Then
Exit For
End If
If cell.Value = str Then
found = True
Exit For
End If
Next
HasFound = found
err:
End Function

Private Sub GetSameData(str As String, idx As Long)
Dim col As Integer
Dim cell
On Error GoTo err
col = 3
For Each cell In ActiveSheet.Range("A:A").Cells
If col = 256 Or Trim(cell.Value) = vbNullString Then
Exit For
End If
If cell.Value Like "*" & str & "*" Then
Cells(idx, col).Value = cell.Value
col = col + 1
End If
Next
err:
End Sub