如何在变量中引用变量？

动鱼教学

之前会用数组记录单元格数据

Dim 单元格(1 to 99) as range
Dim 内容(1 to 99) as string

现在想要实现记录单元格内每一个字符的颜色
相当于多了一个层次
Dim 字符数(1 to 999)
Dim 字符颜色(1 to 999)

如何实现记录   ：
单元格1.字符数
单元格1.字符颜色
单元格2.字符数
单元格2.字符颜色
……
……
向各位大神求助，不胜感激！

tanglf188

For i=1 to 尾行
    for j=1 to 尾列
        k=k+1
        字符数(k)=len(cells(i,j))
        字符颜色(k)=cells(i,j).Font.Color
    next j
next i

taller

大灰狼1976

变量中引用变量的标题，和内容有很大差别。

动鱼教学

taller 发表于 2024-2-28 10:30

你好！感谢大神的回复！
我想再请教一下，如果想要记录单元格内每个字符的颜色呢？
其实我题目里讲的是 记录每个单元格内，每个字符的颜色
比如  单元格1 内容： ABCAA， 颜色是 黑红黑红红
大多数情况的赋值只能让ABCAA全变成黑色或者全变成红色
我现在想要记录 单元格1.第1个字符颜色=黑，单元格1.第二个字符颜色=红 ……
然后还要接着记录单元格B的
请问可以做到吗？感谢！

动鱼教学

动鱼教学 发表于 2024-3-2 10:46
你好！感谢大神的回复！
我想再请教一下，如果想要记录单元格内每个字符的颜色呢？
其实我题目里讲的是 ...

我用了个笨方法 成功了
就是在一张空白的sheet2里

sheet2第1列第1行的值=单元格A第2个字符的颜色
sheet2第1列第2行的值=单元格A第2个字符的颜色

sheet2第2列第1行的值=单元格B第1个字符的颜色
……
现在就是想问一下有没有不使用空白sheet直接记录值的方法

taller

动鱼教学

taller 发表于 2024-3-2 12:09

非常感谢您的解答！