AlayaElla

主要写写游戏制作方面的文章

ExcelVBA整理游戏厂商列表

前言

前几天项目立项,想要整理下别家公司游戏的题材,给自己立项一些参考。
在appannie上可以看到厂商的产品列表,但是我想通过上线时间来筛选游戏。(这样可以看到不同时间段的题材分布)

所以决定把列表复制到excel里,使用excel筛选。
由于复制过去的列表要整理各种排版问题,而且加上想要看的厂商有点多。。所以利用vba写了个整理的的宏。。
下面在excel中整理好的样子。

上代码

包含vba的excel直接分享出来:
>点这里下载<

''VBA代码
Private Sub 整理_Click()
    ''设置图片大小
    For Each shp In Shapes
        If shp.Type = 13 Then
            shp.Width = 30
            shp.Height = 30
        End If
    Next

    ''设置图片行列高
    Rows().RowHeight = 31
    Rows(1).RowHeight = 15
    Rows(2).RowHeight = 15
    Columns(1).ColumnWidth = 75
    Columns(4).ColumnWidth = 20

    ''整理
    For r = 3 To UsedRange.Rows.Count
        If r Mod 3 = 0 Then
            Cells(r, 1).Value = Cells(r + 1, 1).Value
            Cells(r, 1).IndentLevel = 4
        ElseIf r Mod 3 = 1 Or r Mod 3 = 2 Then
            Cells(r, 1).Value = ""
        End If
    Next

    Dim index As Integer
    index = 3
    For r = 3 To UsedRange.Rows.Count
        If IsEmpty(Cells(index, 1)) Then
            Rows(index).Delete
        Else
            index = index + 1
        End If
    Next

    Cells(1, 1).AutoFilter
    Range("A1:D2").HorizontalAlignment = xlCenter
End Sub
点赞

发表评论

电子邮件地址不会被公开。 必填项已用*标注