循环通过excel列

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了循环通过excel列相关的知识,希望对你有一定的参考价值。

我有NFL统计数据,我正在登录表格以创建条件格式化的热图。

从E列开始到P列结束是我的数据,但我需要它从a2开始并转到该列的最后一行,然后对每一列执行相同的操作,以便条件不重叠并创建一个大的热图。我只想为每个单独的列提供热图,以便我可以分析这种方式。 (并非所有列都包含数字,并且它们已经扩散,因此有条件的格式化不应该随便拾取文本列)

如何在不明确引用列的情况下循环列?我对一个职位的状态不会包含与另一个职位相同数量的列。

我需要这个尽可能的动态。此外,任何人都可以帮我清理条件格式化文件吗?我只是复制了宏记录的代码,因为我不知道如何自己编译。

我在想这样的事情:

Dim Overall_Stats As Workbook
Dim RB_stats As Worksheet
Set RB_stats = Overall_Stats.Sheets(RB)

LastRow = Range("A" & Rows.Count).End(xlUp).Row

with RB_stats
     .Range("A2:A" & LastRow)
     .FormatConditions.AddColorScale ColorScaleType:=3
     .FormatConditions(.FormatConditions.Count).SetFirstPriority
     .FormatConditions(1).ColorScaleCriteria(1).Type = _
      xlConditionValueLowestValue

With .FormatConditions(1).ColorScaleCriteria     (1).FormatColor
    .Color = 8109667
    .TintAndShade = 0
End With
.FormatConditions(1).ColorScaleCriteria(2).Type = _
    xlConditionValuePercentile
.FormatConditions(1).ColorScaleCriteria(2).Value = 50
With .FormatConditions(1).ColorScaleCriteria(2).FormatColor
    .Color = 8711167
    .TintAndShade = 0
End With
.FormatConditions(1).ColorScaleCriteria(3).Type = _
    xlConditionValueHighestValue
With .FormatConditions(1).ColorScaleCriteria(3).FormatColor
    .Color = 7039480
    .TintAndShade = 0
End With

End With

For i = 1 to 100
    Columns(i).Select
next I
答案

我无法帮助您进行条件格式化,但您可以通过逐步运行代码并检查每个步骤的效果来轻松配置它(尽管不是很快)。

要在动态变化的工作表中查找有趣的列,需要做三件事。

  1. 找到最右边的列 Dim lastcol as long lastcol=RB_stats.usedrange.columns.count

注意:这种方法很简单,不太可靠,但是当你在最后一列数据中没有任何东西时可以使用它。完全找到最右边的列是另一门科学,请参阅here

  1. 确定列是否包含数字:假设第2行包含数据,您可以在单元格中测试类型的值: If Typename(Cells(2, col))="Double" Then ... this is a column of numbers, do formatting

Typename为数字返回Double,其他值为StringDateEmpty

  1. 在所选列上应用格式 For col=1 to lastcol If Typename(Cells(2, col))="Double" Then ' this is a column of numbers, select range for formatting LastRow = Cells(Rows.Count, col).End(xlUp).Row with RB_stats.Range(Cells(2, col), Cells(LastRow, Col) ... do formatting here end with End If Next

以上是关于循环通过excel列的主要内容,如果未能解决你的问题,请参考以下文章

使用 Perl Excel 循环遍历单列而不是每一列

java 操作Excel,循环每一行的列,为啥列数不相同呢。

使用While循环导出Excel

使用 Excel 公式填充列

尝试将 Vlookup 片段添加到我的 Excel 宏

VBA:循环遍历各种Excel文件并将列复制到主文件中[关闭]