摘要:
Sub test() Dim str Dim i, j i = 1 j = 1 For r = 1 To Worksheets(2).UsedRange.Rows.Count For c = 1 To Worksheets(2).UsedRange.Columns.Count str = Worksheets(2).Cells(r, c).Value Worksheets(3).Cells(j, 1).Value = i Worksheets(3).Cells(j, 2).Value ... 阅读全文
posted @ 2013-11-27 15:17
fff8965
阅读(15781)
评论(0)
推荐(1)

浙公网安备 33010602011771号