vba处理删除指定行及合并数据

fggf

处理数据（指定条件删除和合并）.zip (5.44 KB, 下载次数: 5)

2022-12-1 12:14 上传

点击文件名下载附件

有从软件导出的表格，需要将其进行二次处理，主要有删除指定行及合并数据，详见附件！谢谢帮忙！

ykcbf1100

结果在Sheet2表

wengjl

Sub sjcl()
   
    Sheet1.Select
    jls = Sheet1.UsedRange.Rows.Count
    x2 = 4
    For i = 4 To jls
      If IsNumeric(Sheet1.Cells(i, 1)) And Not (IsEmpty(Sheet1.Cells(i, 1).Value)) Then
        For y = 1 To 8
          Sheet2.Cells(x2, y).Value = Sheet1.Cells(i, y).Value
        Next y
        x2 = x2 + 1
      Else
        If IsEmpty(Sheet1.Cells(i, 1).Value) And Not (IsEmpty(Sheet1.Cells(i, 4).Value)) Then
          Sheet2.Cells(x2 - 1, 4).Value = Sheet2.Cells(x2 - 1, 4).Value & Sheet1.Cells(i, 4).Value
        End If
      End If
    Next i
   
End Sub
由于公司电脑有加密，无法上传附件
如下图   （思路：把需要的数据读到第二张表中）

wengjl

已回复。等待审核中.....