|
发表于 2017-5-19 18:29
|
显示全部楼层
本楼为最佳答案
首页里数量那一列,必须要有一个字的单位,否则会错,另外234那个表的I列设置为常规格式
Sub text()
Dim rng As Range, zf As String, hh As Long, arr, brr
On Error Resume Next
zf = Sheets("首页").[C3]
If Sheets(zf) Is Nothing Then
Sheets("模版").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = zf
Sheets("首页").Range("C3").ClearContents
End If
hh = Sheets(zf).Cells(Rows.Count, "f").End(3).row + 1
Sheets(zf).Cells(hh, "D") = Sheet1.[r1]
Sheets(zf).Cells(hh, "e") = zf
Sheets(zf).Cells(hh, "c") = Sheet1.[u2]
For Each rng In Sheet1.Range("c8", "c" & Sheet1.Cells(Rows.Count, "c").End(3).row)
Sheets(zf).Cells(hh, "f") = Sheet1.[c6]
Sheets(zf).Cells(hh, "G") = rng
Sheets(zf).Cells(hh, "h") = Right(rng.Offset(0, 1), 1)
Sheets(zf).Cells(hh, "i") = Left(rng.Offset(0, 1), Len(rng.Offset(0, 1)) - 1)
Sheets(zf).Cells(hh, "k") = rng.Offset(0, 3)
hh = hh + 1
Next
End Sub
|
|