|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
多列变成一列_基础vba20210914.rar
(18.26 KB, 下载次数: 0)
- Sub yj()
- 'yanjie完成于20210914日上午11:27分。
- Dim dic As Object
- Dim irow As Long, icol As Long
- Set dic = CreateObject("Scripting.Dictionary")
- Sheet1.Activate
- For icol = 1 To Range("A2:J30").Columns.Count
- For irow = 2 To Range("A2:J30").Rows.Count + 1
- dic.Add Cells(irow, icol).Address, Cells(irow, icol).Value
- Next irow
- Next icol
- With Sheet2
- .Range("A:A").Clear
- .Range("A1").Value = "替代料"
- .Range("A2").Resize(dic.Count, 1) = WorksheetFunction.Transpose(dic.Items)
- .Range("A2").Offset(dic.Count - 1).Interior.ColorIndex = 3 '最后一个单元格填充红色。
- .Columns("A:A").AutoFit
- End With
- End Sub
复制代码
|
|