VB 下面的公式,BZX_A = Cells(14,16)XBZX_A = Cells(61,35)BZX_B = Cells(15,16)XBZX_B = Cells(62,35)BZX_C = Cells(16,16)XBZX_C = Cells(63,35)BZX_D = Cells(17,16)XBZX_D = Cells(64,35)BZX_E = Cells(18,16)XBZX_E = Cells(65,35)BZX_F = Cells(19,16)XBZX_F

VB 下面的公式,BZX_A = Cells(14,16)XBZX_A = Cells(61,35)BZX_B = Cells(15,16)XBZX_B = Cells(62,35)BZX_C = Cells(16,16)XBZX_C = Cells(63,35)BZX_D = Cells(17,16)XBZX_D = Cells(64,35)BZX_E = Cells(18,16)XBZX_E = Cells(65,35)BZX_F = Cells(19,16)XBZX_F
VB 下面的公式,
BZX_A = Cells(14,16)
XBZX_A = Cells(61,35)
BZX_B = Cells(15,16)
XBZX_B = Cells(62,35)
BZX_C = Cells(16,16)
XBZX_C = Cells(63,35)
BZX_D = Cells(17,16)
XBZX_D = Cells(64,35)
BZX_E = Cells(18,16)
XBZX_E = Cells(65,35)
BZX_F = Cells(19,16)
XBZX_F = Cells(66,35)
BZX_G = Cells(20,16)
XBZX_G = Cells(67,35)
BZX_H = Cells(21,16)
XBZX_H = Cells(68,35)
BZX_I = Cells(22,16)
XBZX_I = Cells(69,35)
BZX_J = Cells(23,16)
XBZX_J = Cells(70,35)
BZX_K = Cells(24,16)
XBZX_K = Cells(71,35)
BZX_L = Cells(25,16)
XBZX_L = Cells(72,35)
BZX_M = Cells(26,16)
XBZX_M = Cells(73,35)
BZX_N = Cells(27,16)
XBZX_N = Cells(74,35)
BZX_O = Cells(28,16)
XBZX_O = Cells(75,35)
BZX_P = Cells(29,16)
XBZX_P = Cells(76,35)
BZX_Q = Cells(30,16)
XBZX_Q = Cells(77,35)
BZX_R = Cells(31,16)
BZX_S = Cells(32,16)
BZX_T = Cells(33,16)
BZX_U = Cells(34,16)
BZX_V = Cells(35,16)
BZX_W = Cells(36,16)
BZX_X = Cells(37,16)
BZX_Y = Cells(38,16)
BZX_Z = Cells(39,16)
BZX_AA = Cells(40,16)
BZX_AB = Cells(41,16)
BZX_AC = Cells(42,16)
BZX_AD = Cells(43,16)
BZX_AE = Cells(44,16)
BZX_AF = Cells(45,16)
XBZX_R = Cells(78,35)
XBZX_S = Cells(79,35)
XBZX_T = Cells(80,35)
XBZX_U = Cells(81,35)
XBZX_V = Cells(82,35)
XBZX_W = Cells(83,35)
XBZX_X = Cells(84,35)
XBZX_Y = Cells(85,35)
XBZX_Z = Cells(86,35)
XBZX_AA = Cells(87,35)
XBZX_AB = Cells(88,35)
XBZX_AC = Cells(89,35)
XBZX_AD = Cells(90,35)
XBZX_AE = Cells(91,35)
XBZX_AF = Cells(92,35)
If BZX_A = "" Then Cells(14,16) = XBZX_A
If BZX_B = "" Then Cells(15,16) = XBZX_B
If BZX_C = "" Then Cells(16,16) = XBZX_C
If BZX_D = "" Then Cells(17,16) = XBZX_D
If BZX_E = "" Then Cells(18,16) = XBZX_E
If BZX_F = "" Then Cells(19,16) = XBZX_F
If BZX_G = "" Then Cells(20,16) = XBZX_G
If BZX_H = "" Then Cells(21,16) = XBZX_H
If BZX_I = "" Then Cells(22,16) = XBZX_I
If BZX_J = "" Then Cells(23,16) = XBZX_J
If BZX_K = "" Then Cells(24,16) = XBZX_K
If BZX_L = "" Then Cells(25,16) = XBZX_L
If BZX_M = "" Then Cells(26,16) = XBZX_M
If BZX_N = "" Then Cells(27,16) = XBZX_N
If BZX_O = "" Then Cells(28,16) = XBZX_O
If BZX_P = "" Then Cells(29,16) = XBZX_P
If BZX_Q = "" Then Cells(30,16) = XBZX_Q
If BZX_R = "" Then Cells(31,16) = XBZX_R
If BZX_S = "" Then Cells(32,16) = XBZX_S
If BZX_T = "" Then Cells(33,16) = XBZX_T
If BZX_U = "" Then Cells(34,16) = XBZX_U
If BZX_V = "" Then Cells(35,16) = XBZX_V
If BZX_W = "" Then Cells(36,16) = XBZX_W
If BZX_X = "" Then Cells(37,16) = XBZX_X
If BZX_Y = "" Then Cells(38,16) = XBZX_Y
If BZX_Z = "" Then Cells(39,16) = XBZX_Z
If BZX_AA = "" Then Cells(40,16) = XBZX_AA
If BZX_AB = "" Then Cells(41,16) = XBZX_AB
If BZX_AC = "" Then Cells(42,16) = XBZX_AC
If BZX_AD = "" Then Cells(43,16) = XBZX_AD
If BZX_AE = "" Then Cells(44,16) = XBZX_AE
If BZX_AF = "" Then Cells(45,16) = XBZX_AF
求救 大侠

VB 下面的公式,BZX_A = Cells(14,16)XBZX_A = Cells(61,35)BZX_B = Cells(15,16)XBZX_B = Cells(62,35)BZX_C = Cells(16,16)XBZX_C = Cells(63,35)BZX_D = Cells(17,16)XBZX_D = Cells(64,35)BZX_E = Cells(18,16)XBZX_E = Cells(65,35)BZX_F = Cells(19,16)XBZX_F
'用循环加数组可以简化,代码如下：
Dim i As Integer
Dim BZX(1 to 32) As String, XBZX(1 to 32) As String
For i = 1 to 32
    BZX(i) = Cells(13 + i, 16)
    XBZX(i) = Cells(60 + i, 35)
    If BZX(i) = "" Then Cells(13 + i,16) = XBZX(i)
Next


'如果你仅仅只是判断cells(14,16) = "" 那么 Cells(14,16)就等于 Cells(61,35)
'那么上面的代码可以简化为：
Dim i As Integer
For i = 1 to 32
    If Cells(13 + i, 16) = "" Then Cells(13 + i,16) = Cells(60 + i, 35)
Next