在拆分一个单元格中被“/”分开的两组数据时如何使后一个数据自动插入到下一行

piny · 发表于 2010-12-28 16:43

請上傳附件謝謝

maggiexia · 发表于 2010-12-28 17:04

不好意思，请看下附件

piny · 发表于 2010-12-28 17:14

附件應為Excel 方便我們輸入公式謝謝

maggiexia · 发表于 2010-12-28 17:32

EXCEL的格式好像上传不了哦不晓得怎么操作。。

piny · 发表于 2010-12-28 17:38

c5=TRIM(MID(SUBSTITUTE(C$2,CHAR(10),REPT(" ",100)),ROW(A1)*100-99,100))

下拉

maggiexia · 发表于 2010-12-29 09:44

非常感谢piny!

不过还有几个问题：
1. 因为有几千行类似这样的表格，如何做到下拉拷贝公司，这个公式放进去后，每到一个新的需要处理的单元格，还是要手动改位置C2 和 A1.
2。如何做到其它不需要处理的单元格自动复制下来。

S No.	Name	OE No.	Remark
1	TLC-2882	1H0819644B 1H0819638A	AUDI 奥迪A3

S No.	Name	OE No.	Remark
1	AA	1H0819644B 1H0819638A	AUDI 奥迪A3
2	AB	80292-SDA-A01 80292-SWW-G01	HONDA 本田雅阁
改为：
S No.	Name	OE No.	Remark
1	AA	1H0819644B	AUDI 奥迪A3
1	AA	1H0819638A	AUDI 奥迪A3
2	AB	80292-SDA-A01	HONDA 本田雅阁
2	AB	80292-SWW-G01	HONDA 本田雅阁

如果方便的话请email联系我或者MSN，xiaofen_xia@hotmail.com,感激不尽

maggiexia · 发表于 2010-12-29 10:14

补充问题3：如果需要处理的单元格不是这种转行的，而是以“/”或是空格来分隔的，要怎么解决？

nancy20060801 · 发表于 2011-3-22 14:29

dkkkkkkkkkkk

canglanghan · 发表于 2012-7-12 14:51

类似问题，请帮忙，

袁勇 · 发表于 2012-7-12 18:05

用宏代码：将C列内容拆分到H列，第一行做标题，拆分放在第二行开始。其它内容用VLOOKUP公式解决。
Private Sub Workbook_Open()
  Dim a, ary, arr, brr(), i&, j%, m&
With Range("C1:C" & [C65536].End(xlUp).Row)
      ary = .Value
      .Replace "/", " ", xlPart
      .Replace "-", " ", xlPart
      arr = .Value
      ReDim brr(1 To UBound(arr) * 2, 0)
      For i = 1 To UBound(arr)
         If Len(arr(i, 1)) Then
            a = Split(arr(i, 1), " ")
            For j = 0 To UBound(a)
                  If IsNumeric(a(j)) Then
                     m = m + 1
                     brr(m, 0) = a(j)
                  End If
            Next
         End If
      Next
      .Value = ary
End With
[H:H].ClearContents
[H2].Resize(m) = brr
End Sub

		自动登录	找回密码
密码			免费注册

[求助] 在拆分一个单元格中被“/”分开的两组数据时如何使后一个数据自动插入到下一行