14/12/23 00:36:46.56
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel2013(2010だったかも)
【3 VBAが使えるか .】 少し
【4 VBAでの回答の可否】 (できれば) 否
「KK列を探索してA列の対応する行に左詰めで値を埋めていきたい」
KK列以降の「??#n.n」の「??」が、A列にあります。これをキーとします。
同様に「??#n.n」の「n.n」を値とします。
A列とKK列のキーが対応する値を、B列からZ列まで当てはめていきたいです。
KK列はソートされていません。また、BlueやGreenなどの不要データも含まれます。
A B C D・・・・・・KK列
10 1.1 1.2 1.3・・・・・10#1.1
20 2.5 2.0 2.5・・・・・BX#5.5
30 3.3 3.3 3.3・・・・・Blue
A0 4.1 4.2 4.3・・・・・BX#5.4
BX 5.5 5.4 5.3・・・・・30#3.3
・・・・・・・・・・・・・・・・・・・・10#1.2
・・・・・・・・・・・・・・・・・・・・Green
・・・・・・・・・・・・・・・・・・・・BX#5.3
・・・・・・・・・・・・・・・・・・・・10#1.2
ワークシート関数だけで可能でしょうか？できればKK列にコピペするだけが望ましいです。
可能であればどんな関数を使うべきかのヒントだけでも頂けるとありがたいです。よろしくお願いします。
32:名無しさん＠そうだ選挙にいこう
14/12/23 01:11:08.20
>>31
KK列の一番下の「10#1.2」は「10#1.3」の間違いなのか、同じデータは無視するのか、どっち？
33:名無しさん＠そうだ選挙にいこう
14/12/23 01:33:49.42
>>32
最後の行は「10#1.3」です。ご指摘ありがとうございます。
同じデータであっても無視しないです。
エクセルとブラウザの両方とにらめっこしてますが、出来る気がしないですね・・・
34:名無しさん＠そうだ選挙にいこう
14/12/23 02:20:13.44
>>33
数式だけでもできそうだけど、面倒すぎて考える気になれん
というわけでサクっとVBA
Option Explicit
Sub Macro1()
Dim r As Long
Dim KK As String
Dim a() As String
Dim r2 As Range
For r = 1 To Cells(Rows.Count, "KK").End(xlUp).Row
KK = Cells(r, "KK")
If InStr(KK, "#") > 0 Then
a = Split(KK, "#")
Set r2 = Columns("A").Find(what:=a(0), SearchOrder:=xlByColumns)
If Not (r2 Is Nothing) Then
Rows(r2.Row).Find(what:="", SearchOrder:=xlByRows).Value = a(1)
End If
End If
Next
End Sub
35:名無しさん＠そうだ選挙にいこう
14/12/23 09:00:40.94
>>34
あーーーりがとうごさいます！！VBAの方が簡単なんですね。勉強します
36:名無しさん＠そうだ選挙にいこう
14/12/23 17:11:00.83
【1 OSの種類 .】 Windows7
【2 Excelのバージョン 】 Excel 2010
【3 VBAが使えるか .】 いいえ
【4 VBAでの回答の可否】 否
レイヤー機能ってありませんか？
A4の用紙に3種類くらい表を作りたいんですが
1個目の表に合わせて横幅とか決まっちゃうので
結合したり色々工夫しないとうまくできません
一応3つのシートでそれぞれ表を作って
カメラ機能で印刷用のシートに貼り付ければそれっぽくはなるんですが
これ以外にやり方ってあります？
37:名無しさん＠そうだ選挙にいこう
14/12/23 20:40:14.37
前スレ879で質問したものです
2週近くかかりましたが希望の予定表の骨格が作れました
回答者様(特に883様)本当にありがとうございました。
URLﾘﾝｸ(i.imgur.com)
細かいところはこれから直します
38:名無しさん＠そうだ選挙にいこう
14/12/23 20:46:00.08
>>37
見た目キレイだな
39:名無しさん＠そうだ選挙にいこう
14/12/24 07:25:51.10
Win7のExcel2013で一つのセルに長い文章を入れて折り返して全部表示
にすると、一つのセルが大きな長方形になりますよね。
まあそれは正常なのですが、そういうセルが何行もあると、矢印キーで
スクロールする時に、次のセルに一気にピョンと飛ぶので見づらいのですが、
こういう場合でもスムーズにスクロールする方法はないでしょうか？
40:名無しさん＠そうだ選挙にいこう
14/12/24 08:35:17.05
一つのセルに長い文章入れるのが異常
41:名無しさん＠そうだ選挙にいこう
14/12/24 08:43:14.02
>>39
まず、そういう使い方を改めることからやり始めたらどうだ？
42:名無しさん＠そうだ選挙にいこう
14/12/24 09:31:47.17
>>40-41
>>39 じゃないけど、他から送られてきたファイルがそうなってることは珍しくない
43:名無しさん＠そうだ選挙にいこう
14/12/24 10:45:44.36
>>42
そんなのレアケース
そんなファイル作成するのはマトモな奴じゃない
44:名無しさん＠そうだ選挙にいこう
14/12/24 10:56:54.47
>>39
無い
俺もそういう使い方よくするけど、それだけダルイ
テキトーなレポート作るときは楽だよ
45:名無しさん＠そうだ選挙にいこう
14/12/24 11:26:05.26
現実にそういうことがあって相談してるのに、そんなことはない、レアケースと突っぱねられてもかわいそう
46:名無しさん＠そうだ選挙にいこう
14/12/24 12:50:43.96
働いたことないのか、Excel 使うような仕事してない（=ホワイトカラーでない）んだろ
47:名無しさん＠そうだ選挙にいこう
14/12/24 12:53:19.05
ここはエクセルをワープロ代わりにするスレ
48:名無しさん＠そうだ選挙にいこう
14/12/24 14:25:23.21
じゃぁ、ここに誘導しよう
何でもかんでもExcelで資料作る奴
ｽﾚﾘﾝｸ(bsoft板)
49:名無しさん＠そうだ選挙にいこう
14/12/24 15:04:18.59
>>46
こんなヴァカでもホワイトカラーｗ
URLﾘﾝｸ(togetter.com)
50:名無しさん＠そうだ選挙にいこう
14/12/24 19:21:51.19
新製品開発のヒントと思えばいいのかな？ExcelWord
ところが、そういうの作ると、今度は、セルの中で罫線
引けないの？とか・・・・
51:名無しさん＠そうだ選挙にいこう
14/12/24 19:38:03.31
逆にセルには20文字以上いれたり数式やマクロが無いとエラーにすべき