返回列表 上一主題 發帖

[發問] 想請問兩列其中有亂數空白格問題

albertbug

帖子
14 
主題
3 
精華
0 
積分
22 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
10 
性別
男 
註冊時間
2011-7-25 
最後登錄
2011-8-3 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-7-28 18:54 | 只看該作者

[發問] 想請問兩列其中有亂數空白格問題

各位好
我想請問  我有些數字想處理
甲  乙  排列好
          5
5   8    8
9         9
4   5    4
          5
          3
3   5    5

如上圖  有些位置是空格  但是我要根據A1 B1 A2 B2 A3 B3
一起排列在C那邊(空格不排列)

這樣應該要怎麼做比較方便  我有傳附件  再麻煩各位大大了
感謝

範例.rar (1.61 KB)

收藏 分享

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2011-7-28 20:56 | 只看該作者
回復 1# albertbug
  1. Sub Ex()
  2.     Dim D As Object, E As Range
  3.     Set D = CreateObject("SCRIPTING.DICTIONARY")
  4.     For Each E In Range("A2:B30")
  5.         If E <> "" Then D(E) = E.Value
  6.     Next
  7.     [D2:D65536] = ""
  8.     [D2].Resize(D.Count) = Application.Transpose(D.ITEMS)
  9. End Sub
複製代碼

TOP

Hsieh

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

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
3#
發表於 2011-7-28 21:21 | 只看該作者
  1. Sub Ex()
  2. Dim Ay()
  3. ar = [A1].Resize(ActiveSheet.UsedRange.Rows.Count, 2)
  4. For i = 2 To UBound(ar, 1)
  5.    For j = 1 To 2
  6.       If ar(i, j) <> "" Then
  7.          ReDim Preserve Ay(s)
  8.          Ay(s) = ar(i, j)
  9.          s = s + 1
  10.       End If
  11.    Next
  12. Next
  13. [D1:D65536] = ""
  14. [D2].Resize(s, 1) = Application.Transpose(Ay)
  15. End Sub
複製代碼
回復 1# albertbug
學海無涯_不恥下問

TOP

albertbug

帖子
14 
主題
3 
精華
0 
積分
22 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
10 
性別
男 
註冊時間
2011-7-25 
最後登錄
2011-8-3 
4#
發表於 2011-7-29 00:37 | 只看該作者
感謝GBKEE & Hsieh的教導感謝
但是可以在問個很蠢的問題
如何執行EX()
是利用新增表單Private Sub CommandButton1_Click()
去Call ex()嗎

還是要如何執行  XD  感謝  希望大大再教導

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
5#
發表於 2011-7-29 06:23 | 只看該作者
回復 4# albertbug
  1. Private Sub CommandButton1_Click()
  2.     Dim D As Object, E As Range
  3.     Set D = CreateObject("SCRIPTING.DICTIONARY")
  4.     For Each E In Range("A2:B30")
  5.         If E <> "" Then D(E) = E.Value
  6.     Next
  7.     [D2:D65536] = ""
  8.     [D2].Resize(D.Count) = Application.Transpose(D.ITEMS)
  9. End Sub
複製代碼

TOP

albertbug

帖子
14 
主題
3 
精華
0 
積分
22 
點名
0  
作業系統
windows 
軟體版本
xp 
閱讀權限
10 
性別
男 
註冊時間
2011-7-25 
最後登錄
2011-8-3 
6#
發表於 2011-7-29 14:46 | 只看該作者
感謝GBKEE大大

TOP

        靜思自在 : 信心、毅力、勇氣三者具備，則天下沒有做不成的事。
返回列表 上一主題