返回列表 上一主題 發帖

[發問] 相同資料欄位刪除/指定資料列重新排列

marklos

帖子
63 
主題
15 
精華
0 
積分
100 
點名
0  
作業系統
WINXP 
軟體版本
SP3 
閱讀權限
20 
註冊時間
2011-12-22 
最後登錄
2024-8-21 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2012-4-3 19:25 | 只看該作者

[發問] 相同資料欄位刪除/指定資料列重新排列

本帖最後由 marklos 於 2012-4-3 19:28 編輯

請求幫忙~
Sheet1 變成Sheet2
(相同資料欄位刪除,黃色標示)


Sheet2 變成 Sheet3
(D欄如果有資料, 紅字標示 ,插入下一欄位,並複製其B/D/G/H/I欄位的資料)


結果 Sheet3


感謝幫忙

Excel-Q4.rar (9.97 KB)

收藏 分享

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
7#
發表於 2012-4-5 19:29 | 只看該作者
回復 6# marklos
  1. Sub EX()
  2. Sheet3.Cells.Clear
  3. X = 1
  4. With Sheet2
  5.   For R = 1 To .[A65536].End(xlUp).Row
  6.     .Range("A" & R & ":J" & R).Copy Sheet3.Range("A" & X)
  7.     X = X + 1
  8.     If .Range("D" & R) <> "" Then
  9.        .Range("A" & R & ":J" & R).Copy Sheet3.Range("A" & X)
  10.        Sheet3.Range("D" & X - 1).Copy Sheet3.Range("C" & X)
  11.        X = X + 1
  12.     End If
  13.   Next R
  14. End With
  15. Sheet3.[D2:D65536] = ""
  16. End Sub
複製代碼

TOP

marklos

帖子
63 
主題
15 
精華
0 
積分
100 
點名
0  
作業系統
WINXP 
軟體版本
SP3 
閱讀權限
20 
註冊時間
2011-12-22 
最後登錄
2024-8-21 
6#
發表於 2012-4-5 18:57 | 只看該作者
如果只是單純將Sheet2 變成Sheet3 那應該如何?
單純將D欄的資料剪接到下一列的C欄位 , 並將原本的那一列的部份儲存格資料複製到下一列C欄位~

TOP

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
276  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-22 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
5#
發表於 2012-4-4 09:48 | 只看該作者
回復 3# marklos
  1. Sub ex()
  2. Dim ar()
  3. Set d = CreateObject("Scripting.Dictionary")
  4. With Sheets("Sheet1")
  5. For Each a In .Range(.[A1], .[A1].End(xlDown))
  6. x = Join(Application.Transpose(Application.Transpose(a.Resize(, 10).Value)), Chr(9))
  7. If IsEmpty(d(x)) Then
  8.   d(x) = x
  9. y = Split(x, Chr(9))
  10. If a.Offset(, 3) <> "" Then
  11. For i = 1 To 2
  12. If i = 2 Then y(0) = ""
  13.   ReDim Preserve ar(s)
  14.   ar(s) = y
  15.   s = s + 1
  16. Next
  17. Else
  18. ReDim Preserve ar(s): ar(s) = y: s = s + 1
  19. End If
  20. End If
  21. Next
  22. End With
  23. With Sheets("Sheet3")
  24. Application.DisplayAlerts = False
  25. .[A1].Resize(s, 10) = Application.Transpose(Application.Transpose(ar))
  26. Application.DisplayAlerts = True
  27. End With
  28. End Su
複製代碼
學海無涯_不恥下問

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
4#
發表於 2012-4-3 23:16 | 只看該作者
回復 3# marklos

Sheet1 A : J 欄的第一列要先加上資料的欄位名稱
  1. Sub EX()
  2. Sheet3.Cells.Clear
  3. Sheet1.UsedRange.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet3.Range("A1"), Unique:=True
  4. With Sheet3
  5.   For R = .[D2].End(xlDown).Row To 2 Step -1
  6.     If .Cells(R, "D") <> "" Then
  7.       .Rows(R + 1).EntireRow.Insert
  8.       .Cells(R + 1, "B").Resize(1, 9).Value = .Cells(R, "B").Resize(1, 9).Value
  9.       .Cells(R + 1, "C") = .Cells(R, "D")
  10.     End If
  11.   Next R
  12.   .[D2:D65536] = ""
  13. End With
  14. End Sub
複製代碼

TOP

marklos

帖子
63 
主題
15 
精華
0 
積分
100 
點名
0  
作業系統
WINXP 
軟體版本
SP3 
閱讀權限
20 
註冊時間
2011-12-22 
最後登錄
2024-8-21 
3#
發表於 2012-4-3 21:53 | 只看該作者
進階篩選確實可以得到不重複的資料~~感謝!!!
另外(D欄如果有資料, 紅字標示 ,插入下一欄位,並複製其B/D/G/H/I欄位的資料)
分解動作為
1.Sheet2中的D12(D欄如果有資料),D13插入新列,
2.D12移動到C13的位置
3.複製B12/D12/G12/H12/I12的資料至B13/D13/G13/H13/I13
4.其餘D欄如果有資料~依此類推

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-4-3 21:24 | 只看該作者
回復 1# marklos
建議: 請在 Sheet1 A : J 欄的第一列加上資料的欄位名稱 用進階篩選 可得到不重複資料
  1. Sub EX()
  2. Sheet3.Cells.Clear
  3. Sheet1.UsedRange.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheet3.Range("A1"), Unique:=True
  4. End Sub
複製代碼
(D欄如果有資料, 紅字標示 ,插入下一欄位,並複製其B/D/G/H/I欄位的資料)
看不了解  SHEET3的結果  它的欄位少了一位,只有到 I欄 SHEET1的最後欄位是J欄

TOP

        靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！
返回列表 上一主題