2    有效性选择：=INDIRECT(A1)

;i代表行，j代表列
Option Explicit
Sub Macro2()
Dim str As String
Dim i As Integer
Dim j As Integer
  For j = 1 To 3
    For i = 2 To 871
    If Sheet1.Cells(i, j) <> "" Then str = Sheet1.Cells(i, j)
    If Sheet1.Cells(i, j) = "" Then Sheet1.Cells(i, j) = str
  Next
Next

End Sub

2=====根据前一个情况序列=====
------------------以下是单色宝石-----------------
绿色品质宝石: 血榴石(红) - 德拉诺金钻(黄) - 碧月石(蓝)
蓝色品质宝石: 红曜石(红) - 黎明石(黄) - 艾露恩之星 70级后，我们去哪里打钱？

珠宝扫盲：
TBC第4天早上68级 刀锋第一个任务就打出了一个天火图纸
毅然然删除工程（后诲了，应该删挖矿） 学了
花了不少钱 冲到355
之后就要花更多的钱来买100~800G不等的配方了
后来卖宝石总要不厌其烦的给客户解释宝石
看来还是大部分人不懂宝石
我就给大家介绍下
我会的宝石总类只有下面的几种（不停的搜刮图纸中，8智8精部推荐了，8韧没收到）
为了让非宝石专业玩家看得明白我分类了（橙　绿　紫各自分类了）
＋红色（9F伤,16AP,5F伤6..]]>


●●地狱火城墙●●（等级60~62）
1 看守者卡尔古玛
/S 这个BOSS会冲锋，布衣职业最好尽量靠近BOSS。
/S 小怪会治疗，建议速杀，当然由某位朋友控制也可以~


2无疤者奥摩尔
/S 地狱犬需要专人处理，要不战斗会比较麻烦
/S 治疗最好要保证队友血大于50%，要不可能会被秒
/S 最后阶段BOSS会开法术反射护盾，法系小心


3 先驱者维斯路登 纳桑 2人组
/S BOSS技能1：火球，1100~1300伤害，而且留下火堆，火堆伤害400/秒
/S BO..]]>