Excel 技巧搜集区 “实用篇”

dugong

希望大家可以为我解答。

我需要在Price Factor的datasheet里头的B27（或以下）的阁子输入我的产品名字，然后显示出我需要的资料。我的资料来源是RC 2010，也是属于同一个file内，但是在不同的datasheet。我的资料库来自RC 2010的A3及以下，可能直到A1003。

我的资料取至"RC 2010" (short form = RC) 然后转移至 " Price Factor" (short form = PF)

- Ax of RC 要出现在 By of PF
- Bx of RC 要出现在 Cy of PF
- Cx of RC 要出现在 Dy of PF
- Dx of RC 要出现在 Ey of PF
- Ex of RC 要出现在 Fy of PF
- Fx of RC 要出现在 Gy of PF

注：
x是个可变动数目，从3开始到1003
y是个可变动数目，从27开始到1027

我的问题可能跟Alex Cheong很接近，我会参考他的解决方案，也请大家可以帮看看，因为我的formula不太会写，不太会link过去其他的datasheet。在此感谢各位！

dugong

问题的第二部分

Gy of PF是我的价钱，我需要乘于一个单位（好几个单位里其中一个单位），然后显示在Iy of PF。[y可以是任何一个号码从27到1000]

举例：

G27的数目乘于一个单位然后答案显示在 I27。
G28的数目乘于一个单位然后答案显示在 I28。
G29的数目乘于一个单位然后答案显示在 I29。

单位有分类成好几个，以颜色区分。比方：1.50（红），1.55（蓝），1.60（青）。

如果B27输入的产品属于红色，那么G27的数目将乘于1.50，然后显示在I27。

如果B28输入的产品属于青色，那么G28的数目将乘于1.60，然后显示在I28。

Sekian, terima kasih.

发糕

请问为何 Delete 的部分会不对 ？？？（Delete “空” 时）
     Dim D As Variant
     For D = 7 To [R65536].End(xlUp).Row
     If Cells(D, "R") = "" Then Rows(D).Delete shift:=xlShiftUp
     If Cells(D, "CT") = 0 Then Rows(D).Delete shift:=xlShiftUp
     If Cells(D, "CU") <> "" Then Cells(D, "CU").ClearContents
     Next

kiam06

请问为何 Delete 的部分会不对 ？？？（Delete “空” 时）
     Dim D As Variant
     For D = 7 To [R ...
发糕 发表于 26-2-2011 11:04 PM

因为。。。
比如：cells(8,R)，cells(9,R)，cells(10,R)为空格
当你的D = 8，你的程序会delete rows 8，
那个时候，rows 9 就会跳上来变成新的rows 8，
你的程序接下去时会skip掉原本的rows 9 （新的rows 8）而直接去到新的rows 9（旧的rows 10）。。。

这种情况，通常我会放弃用For...Next，我会使用Do until ... Loop 从最下面的row开始向上跑

kiam06

希望大家可以为我解答。

我需要在Price Factor的datasheet里头的B27（或以下）的阁子输入我的产品名字 ...
dugong 发表于 23-2-2011 03:44 PM

请参考#8

发糕

回复 44# kiam06


这一段不是从下至上吗？

For D = 7 To [R65536].End(xlUp).Row  

Do until Loop  可以用了，谢谢你 。

kiam06

回复  kiam06


这一段不是从下至上吗？For D = 7 To [R65536].End(xlUp).Row  

Do until Loop  可 ...
发糕 发表于 28-2-2011 09:51 PM

不是。。。
那个end(xlup)是指R65536以上不是空格的
整句是从7到最后一格

发糕

回复 44# kiam06


   找到方法了。

     Dim D As Variant               For D = 3000 To 7 Step -1
     If Cells(D, "R") = "" Then Rows(D).Delete shift:=xlShiftUp
     If Cells(D, "CT") = 0 Then Rows(D).Delete shift:=xlShiftUp
     If Cells(D, "CU") <> "" Then Cells(D, "CU").ClearContents
     Next


     谢谢你。

kiam06

回复  kiam06


   找到方法了。

     Dim D As Variant          For D = 3000 To 7 Step -1
     ...
发糕 发表于 4-3-2011 11:31 AM

也是可以啦。。。
那个3000 改成  [R65536].End(xlUp).Row  就可以拿到最后一行了

发糕

也是可以啦。。。
那个3000 改成  [R65536].End(xlUp).Row  就可以拿到最后一行了
kiam06 发表于 4-3-2011 11:33 AM

   谢谢你，改成  [R65536].End(xlUp).Row 变快很多。

dugong

编号教学

比如说我们要给资料加入编号：

1. a
2. b
3. c
4. etc

我们可以采用以下方程试：

B2: =rows($1:1) [假设编号1从B2格子开始]
一直往下copy，然后选择paste special -> paste formulae 或者paste all

如果要从编号100号开始起跳：
B2: =rows($1:1) + 99 [假设编号100从B2格子开始]

dugong

如何遮盖不必要的row或者column

1 先选择你任为不必要的row或者column
2 Format > Row 或者 Column > Hide 项目
3 任务完成

若要重新启动可以选择unhide项目

puangenlun

问题：
给你一个参考表
        A        B        C        D        E
1        12        45        89        56        65
2        23        54        56        56        74
3        65        87        45        38        37
4        45        84        67        48        37
5        54        67        25        53        37

根据上面的表，完成下面第三列

A        1        12
C        2        56
D        5       
E        4       
B        2       

请问应该怎样，似乎是vlookup的2D版本。

madren

回复 53# puangenlun

请问你说的情况是第一项还是第二项？

1.


2.


如果是第一项，根本就用不到 vlookup 方程式。

xphantom18

如果我要excel来写一个formula,而且是从一个graph里面的value放进formula的..

y=mx, m=constant, x=另外一个graph的value, y=我要找的value

graph是直线...然后我用x-axis可以直接从graph找y的value来丢进去formula里面吗?
不懂你们知道我在说什么吗...
谢谢~

puangenlun

回复 54# madren


   我想请教的是第一种情况，谢谢指教！

madren

回复 56# puangenlun

之前已经说了，第一项的话根本不需要用 vlookup，直接把那个 cell 的代号放进去就可以得到相关的数值了。

根据上面的表，完成下面第三列

A        1        12
C        2        56
D        5        
E        4        
B        2        

A        1        12
C        2        56
D        5        =D5
E        4        =E4
B        2        =B2

puangenlun

回复 57# madren


   更一般的话，如果参考的表格是半天吊的话，那么又如何？

madren

回复 58# puangenlun

怎么说“半天吊”呢？愿闻其详。

puangenlun

回复 59# madren

也就是说参考表格是插在excel的中间位置，不像上面那样靠在左上角。

	Sunday	Monday	Tuesday	Wednesday	Thursday	Friday	Saturday	Sunday
Red	0.9903259277	0.7032470703	0.9317321777	0.1869812012	0.9717712402	0.3481750488	0.379699707	0.2437744141
Blue	0.9528198242	0.8902893066	0.4791870117	0.2227478027	0.8182678223	0.9823303223	0.8507385254	0.0264587402
Green	0.0681152344	0.001739502	0.2296447754	0.3459472656	0.4383239746	0.8135375977	0.302520752	0.7761535645
Yellow	0.6795654297	0.05859375	0.9676818848	0.6598510742	0.1508178711	0.9983825684	0.9254760742	0.9412231445
White	0.3833618164	0.4477844238	0.0053100586	0.8104553223	0.2718505859	0.8268737793	0.1347045898	0.4208374023

这样就不可以=(Red, Monday)来简单处理了